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LISTE 
DES POINTS 
DE VENTE 


06000 - MAD'S - NKE - (93) 88.04 79 

06910 - ÉV@LUTION 2000 - MANDELIEU - (93) 49.81.61 
08600 + MICRO-BOUTIQUE JCR - GIVET : (24) 55.01.93 
10000 - MCROPOLIS + TROYES - (75) 72.03.79 

11000 - | ÊLEC MDEO CLUB - CARCASSONNE - (68) 47 894 
19000 - & © 1 INFORMATIQUE - NARBONNE - (68) 85.15 63 
12000 - BASE © SOCODETI - RODEZ - (65) 42.50.05 

13004 + ALLIANCE + MARSEILLE - (91) B6 35.99 

12005 - ELPR INFO - MARSEILLE - (91) 9491.13 


13006 - 4B SYSTÈME - JCR BOUTIQUE : MARSEILLE - (91) 37.69.33 


13200 - LUDO + ARLES - (90) 96.79.03 

14000 - OMB-VASSARD YILLIETTE - CAEN : (31) 93 4809 

16000 - SA LHOMME - ANGOULÈME - (45) 9997.37 

18000 - AVENIR INFORMATIQUE - BOURGES (48) 65 18.57 

19100 - MCRBMANC - BRIVE - (55) 87 15.17 

19100 - INFORMATIC 19 - BRIVE - (55) B7.77 08 

21000 - O.M.G. MCRO LEADER - DIJON - {80) 30 19 70 

24100 - MICRO CYRANO INF@RMATIQUE + BERGERAC - 
(16) 56069819 + 


25906 - (A MONTBELLARD - MONTBELLIARD CEDEX - (84) 9450.65 


26000 - COMCA . VALENCE - (75) 41 14,75 


26500 -E ECTRONIQUE - BOURG-LES-VALENCE -(75) 49.68 88 





29000 - L'ORDINATEUR 99 - @ULMPER - (98) 95 99.70 

30800 - MISCOUNT INFORM. SERVICE - NIMES - (66) 93.74.21 

31000 - MICRO DIFFUSION + TOULOUSE : (61) 22.81.17 

33000 - ACR@ DIFFUSISN - BORDEAUX - (56) 811199 

33800 - ETS COCA - BORDEAUX - (61) 92.91.78 

34006 - PIB - 3CR BOUTIQUE - MONTPELLIER - (67) 58.94.97 

34900 - BUREAU ORGANISATION - SÈTE - (67) 7434 10 

34500 - MARCELLEC - BÉZIERS - {67) 31.3765 

37170 - LiM- CHAMBRAY-LES.TBURS - (47) 97.29.00 

38500 - MICRO AVENIR - V@IR@N - (76) 65.75.55 

39000 - MLR® 39 - JEAN-PIERRE-ANDRÉ - LONS:LE-SAUNIER 
(84) 9445.39 

41500 - TIM : MÉR - (54) 81 62 47 

42000 - DÉTRONT INFORMATIQUE - SAINT-ÉTIENNE - (27) 33 5859 

49100 - SAINT.ÉTENNE COMPOSANTS » SAINT-ÉTIENNE 
(77) 335014 

42300 - MICRO SYSTEME RH@NE-ALPES - ROANHE - (77) 88.67 99 + 

44100 - SILIC@NE VALLÉE - NANTES - (40) 7381.67 

45000 - TÉLÉPHONIE 8 - ORLÉANS - (38) 54.34.34 

47000 - JULIEN ÉLECTR@NIQUE - AGEN : (58) 66.55 64 

49000 - TEMPS x - ANGERS - (41) 88.95 07 

49300 - CHOLET INFORMATQUE - CHOLET : (41) 46 02.40 

54000 - SÉREC - NANCY - (8) 332.12.60 

56800 - L'ORDINATEUR 56 - VANNES : (97) 42.59 20 

56100 - L'ERDINATELR 56 - LORIENT : (97) 64,59,54 

57504 - ARGO INF@RMATIQUE - SAÏNT-AVOLD : (87) 90 54.84 -- 

57800 - CM - FREYMING MERLEBACH - (B7) 81.14.89 

59000 - ETS BOULANGER - LILLE - (20) 549875 

S9000 - BECY INFORMATIQUE - LIILLÉ - (20) 9233.08 

59400 - MCROSHOP . CAMERA - (97) 81.98.09 + 

59500 - CiD - DOUAI - (27) 88 4790 

59800 - M.8.D.C. - LILLE - (20) 5791.87 

60108 + QUENEUITE - CREIL - (4) 425 04 £6 

60200 - LARDET SA. - COMPIÈGNE - (4) 423.07.86 

63000 - IMPACT - CLEAMONT-FERRAND - (73) 92.17.58 

64110 - BPACE MICRO 64 - BAYONNE - (59) 59.41.55 

64600 - INFORMATIQUE BASCO LANDAISE - ANGLET - (59) 31.96.05 

66000 - SÉRIE INFORMATIQUE - PERPIGNAN - (68) 34 00 11 

67150 - ETS À ERITSCH - ERSTEIN - (88) 98.03.51 

68000 - £I.B.- COLMAR (89) 23,69,35 

69003 - &I.M.P. - LYON (7) 860.84.07 

69400 - MICRO INFORMBEALIJOLAISE - VILLEFRANCHE-S/SA@NE - 
(74) 68.4492 

70000 - ÉLECTRO BOUTIQUE - VESOUL - (B4) 76.49.52 

21100 - AVENIR ÉLECTROMOLE - CHALON/SAOME - (85) 48.73.35 

71400 : CHB ÉLECTRONIQUE . AUTUN . (B5) 5% 70.26 

72000 - MCROTIQUE AESCULAPPLE - LE MANS - (43) 9497.80 

73100 + L'@RBINATEUR - AIX-LES-GAINS - (79) 84.19.07 

741092 - B SA. MICRO - ANNEMASSE : (50) 38.31 40 

75001 - MDEO SHOP? - PARIS - (1) 296 9395 

75005 - HACHETTE - PARIS - 633.84 48 

7 006 - OURIEZ SA - PARIS - 399 05.60 

15008 - ÉNERGY 8 : PARIS - 293.41,33 

75009 - LE JEU ÉLECTRONIQUE - PARIS . 526.62 93 / 874 43.20 

75009 - LPS BUREAU - PARIS - 878.96 45 

75009 - JCR ÉLECTRONIQUE - PARIS - 289 19.80 

75010 - GÉNÉRAL MDEO - PARIS - 206.50 SO 

010 - LOGIC STORE - PARIS - 206.70 28 

75011 - COCONUT INFORMATIQUE : PARS - 355,63.00 

25011 - PITE, - PARIS - 954.38.01 

7501% - ELLIX. PARIS - 307.65 58 

75014 - MIDEF - PARIS : 539.98.68 

75015 : J.C.S. COMPOSANTS - PARIS : 355 94.29 

75015 - ILLEL CENTRE - PARIS - 554.97 48 

75016 - PENTASONIC : PARK - 594 03 16 

75016 - ANTIGONE - PARIS - 743.13.41 

76600 - MICRO MAX - LE HAVRE - (35} 41.77.47 

76600 - VP.C. BUREAU - LE HAVRE - (35) 49.4991 

76600 - L'ORBINATEUR : LE HAVRE - (35) 91.54.55 

77000 - ÉPSIL@N + MELUN - 437,51 95 

80000 - LOGIC + AMIENS - (29) 95.54 84 

83000 - PS4. ÉLECTRONIQUE - TOULON : (94) 931 190 

86011 - LISFE MFORMATIQUE . POITIERS CEDEX - (49) 41.43.86 

8000 - MCROUM - UMOGES - (55) 34 10.19 + 

89190 - MNI LOISIRS - SENS - (86) 64.491 

89100 - LASOBIKOR YONNE - SENS (86) 64.51 26 + 

91210 - DE@TRONIC . BRAVEIL - 940.08 =0 

92100 - AXIOME - BOULOGNE - 604,091 

92100 - OLIG - BOULOGNE BILL. » (1) 605.05.59 

94100 - DIXMA - SAINT-MAUR - 885 98 99 

98000 - MCROTEK 9 - MONACO - (93) 30.67.67 + 

89002 - AV.M - ÉPINAL (99) 89 14 97 


A TTee À: 
el: AT] 2 


Le deuxième d'une 
longue série de quide 
des logiciels. 

Plus d’un tiers de nou- 
veautés. 


AU SOMMAIRE : 

— Une sélection de 416 
programmes en Anglais 
ou en Français pour : 

APPLE - ATARI - COMMODORE 

V20 et C64 - EPSON HX 20 - 

ORIC 1 et ORIC ATMOS - IBM PC 

- SINCLAIR ZX81 et SPECTRUM 

TRS 80 - THOMSON TO 7 - 

a 1410);2 

— Les fiches techniques de 
chaque programme compre- 
LE Li] 

La description précise du pro- 

gramme. 

S'olsho lt @uule)/2aMetels it] 22 

Sa compatibilité avec tel ou tel 

micro. 

— En plus vous trouverez : 

Des conseils pour choisir et acheter 

le programme que vous cherchez. 

Des index pour trouver facilement 

ce que vous cherchez. 


A RULUSERXRS,) 7410), 
DISTRIBUTEUR OÙ 15 F +5F 
r) He) 481,511, 11e) /\) IR: 
eo]l) de) Rare] TER 


8ON DE COMMANDE A RENVOYER À SPID - 39, RUE V. -MASSÉ - 75009 PARIS 
Je désire recevoir le “GUIDE DES LOGICIELS" Printemps 1984 






LA HAUTE FIABILITÉ 


Je joins 20 F en chèque (15 F+ 5 F de port) en règlement. 


Nom 
Adresse 
Code et ville 
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Sommaire Page Langage * | Niveau * * 
Disque virtuel 16K par Michel Haag 7 A 

Charts Unlimited à l’essai par Guy Lapautre 11 

Le Calculateur entier par Jacques Duma 15 A 

Exp (Pi*Sgr (163)) est-il entier ? par Olivier Herz 21 

Analyse de Magic Mailer par Guy Lapautre 22 

Initiation à l’assembleur (2) par Gérard Michel 23 B-A 

Patch du DOS 3.3 par Yvan Koenig 28 B 

Des tableaux de dimension variable par Gérard Michel 29 A 

& ONERR GOTO par Dimitri Auer 33 A 

Programme assembleur à la fin d’un programme BASIC 

par Roland Jost 35 B 

Des trucs pour Apple Writer Il et //e par Hervé Thiriez 39 

Adaptez Apple Writer 1.1 à l’Apple //e par Jacques Lerey 40 

Un éditeur de shapes par Thierry Le Tallec 41 B-A 

Nombres flottants en langage machine par Erick Ringot 45 B-A 

Un mois avec le Macintosh par Hervé Thiriez 53 

L’Apple //c est né ! par Guy Mathieu 54 

PEEKSs et POKESs en Pascal par Jacques Pino 55 F 

Les disquettes de Pom’s par Olivier Herz 56 

Imprimez les codes ESC de votre PLE par Pascal Fentanier 59 B 

Tracé rapide de cercles par Dominique Bernardi 61 A 

La micro-informatique au Japon par Olivier Herz 62 JE 
Pom's a vu MEM/TERM par Guy Lapautre 63 T 
La famille Apple // par Daniel Gamic 67 15 
Micro-informations par Jean-Michel Gourévitch 69 T 
Courrier des lecteurs par Alexandre Duback 71 pe 
Courrier des clubs 73 Al 
Bibliographie 73 At 


* Langage: Blasic) - A(ssembleur) - Pascal) (B) signifie : relatif au BASIC 
“# Niveau : Blébutant) - M{oyen) - Pirefessionnel) - T(eus) : 
P-T signifie : pregramme utilisable par les débutants. mais dent la compréhension est de niveau ‘Professionnel’ 


Les annonceurs 

ACER : p. 44 / ALPHA SYSTEMES : p. 4 / APPLE : p. 75 / B.F.L : p. 6 ; CEDIC-NATHAN : p. 51 / COMPUTER 3 : p 38 
HELLO : p. 57 / M.B.D.C. : p. 72 - MICRO EXPO : p. 52 / MICRO-PER{PH : p. 66 / L'ORDINATEUR INDIVIDUEL : p 76 
PENTASONIC : p. i4, P.S.1. Diffusion : p. 64-65 ; SATELCOM : p 58 ; SICOB : p. 1@ / SPID : p. 2 / TELECOMPO : p. 38 


Éditions MEV -— 64-70 rue des Chantiers — 78000 Versailles 


Birecteur de la publication : Hervé Thiriez. Imprimerie Resay. 94300 Vincennes, Imprimé en France. Bépéèt légal : 2° trimestre 1984. 


NON ANTIES DID: : 
PR SR 
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144 


® 7 ONESTFAIT 
=) POUR L'AUTRE. 


Nos cartes coprocesseurs permettent de transformer littéralement un Apple // en lui donnant 
une vitesse 2 à 20 fois supérieure en AS + en Pascal et/ou une compatibilité 
en assembleur ou en langage évolué avec les nouveaux micros du marché. 


LA PERFORMANCE 


carte AD 8088 


16 bits, CP/M-86 
APPLESOFT ultra rapide ! 








carte 6502 C 


100% compatible 
4 fois plus rapide. 





Sans modifier une ligne des programmes APPLESOFT, la Quel æue soit le programme, quel que soit le langage. 
vitesse est multipliée par un coefficient de 2à 4 La carte le microprocesseur 6502 C (3.6 MHZ) divise par 3,6 le 
permet d'utiliser CP/M-86 bientôt MS/DOS, le processeur temps d'exécution. Aucune modification ni matériel, ni 
arithmétique rapide 8087 a une vitesse époustouflante. logiciel. La carte comporte 64 Ko de mémoire ; 2 ver- 
Mémoire extensible à 192 Ko. Fonctionnement simultané sions : Apple II +, et Apple //e. 

du 6502 et de plusieurs cartes AD 8088 possible. 


# 


carte 68000 


Vitesse, puissance. Avenir. 





Le microprocesseur le plus puissant. 3 versions 8, 12.5 et 14 MHZ. 128 Ko de mémoire sur la carte extensibie à 812 Ko. 
Entièrement compatible avec APPLESOFT et DOS 5.3 qu'elle accélère dans un rapport de 3 à 28 selon les program- 
mes. UCSD-p System complet disponible en version IV.I avec PASCAL, BASIC, FORTRAN. Développements 
possibles sous UCSD pour IBM PC et XT, VICTOR S1, RAINBOW 168, GOUPIL II, etc., sans recompilation. 

Le 68000 équipe LISA et MC INTOSH ! 


(al departement 29, bd gambetta - 38000 grenoble : 


tél (76) 43.19.97 on 
SYSTEMS diffusion oisramuTEurs DANS TOUTE LA FRANCE francs 





Editorial 


D'aucuns annonçaient la mort lente d'Apple. étant donné la concurrence de i'IBM PC et des nouveaux 
16 et 32 bits à haut rapport performance’prix. tels que le QL de Sinclair. Or. tout d'abord. on constate 
que les nouveaux produits concurrents n'ont pas toujours une naissance sans problème : ainsi. le QL 
connaît-il en ce moment des difficultés avec des bugs dans son QDOS et des erreurs de conception 
dans un de ses circuits spéciaux. En outre. la sortie du Macintosh à prouvé qu'il fallait encore compter 
avec Apple - la demande est telle aux Etats-Unis qu'il est question de lancer une campagne de publicité 
sur le thème « Nous savions qu'il s'en vendrait un million : nous ne savions pas que cela se ferait en 
deux semaines. ». 


Ce douzième numéro de Pems vous apporte la seconde partie de la rubrique + Apprentissage de 
l'assembleur » assurée par Gérard Michel. Certains m'ont fait déjà fait savoir. à la suite de la première 
leçon. que cette initiation était la meilleure qu'ils aient jamais vu Merci pour Gérard. Sur le plan 
pédagogique. Erick Ringot épluche aussi pour vous la façon dont les nombres flottants sont gérés par 
votre ordinateur favori. 


Grâce au programme de Michel Haag, tout le monde pourra. sur Apple H Plus et /’e. transformer la 
carte d'extension 1eK en lecteur de disquettes virtuel 1 est alors possible d'v leger tous ces utilitaires 
d'usage fréquent, ou de s'en servir pour v placer les tables de référence des pregrammes Basic. En 


compensation. les « Pascaliens » apprendront avec Jacques Pino comment faire des PEEKSs et des 
POKESs en Pascal. 


Comme d'habitude, vous trouverez dans ce Pom s des tas de programmes tous plus utiles les uns que 
les autres. Roland Jost montre comment cacher des programmes en assembleur à la fin des program- 
mes Basic Dominique Bernardi illustre sa façon de tracer rapidement des cercles en écran haute 
résolution. Dimitri Auer vous permet enfin de créer des tableaux à dimension variable en Basic. Yvan 
Koenig propose un patch du DOS 3.3 permettant d'éliminer plusieurs de ses bugs et limitations. 
Thierry Le Tallec complète ses contributions antérieures par un éditeur de shapes de toute beauté. 
Les utilisateurs d'Apple Writer sont gâtés cette fois-ci. Jacques Leroy transforme Apple Writer 1 pour 
qu'il fonctionne sur un /’e. et je fournis de nombreux trucs d'utilisation pour Apple Writter H et /e. Pour 
terminer, vous verrez avec Pascal Fontanier comment imprimer les codes ESCape de vetre impri- 
mante. 


Pom's vous offre encore dans ce numére une contribution importante avec le Calculateur Entier de 
Jacques Duma ; vous poutrez effectuer avec vetre Apple {! des calculs avec 508 chiffres significatifs. 
Comme il fallait 15 pages rien que pour le listing source en assembleur. nous n'avons pu le mettre que 
sur la disquette d'accompagnement : par contre. les lecteurs courageux (ou obstinés) pourront repren- 
dre le programme à partir du code obiet publié avec l'article... Olivier Herz utilise le Calculateur Entier 
pour s'attaquer à la question métaphysique que tous se posent : EXP (PI*SQR(163)) est-il entier ? 


Les bancs d'essai restent au goût du jour : Guy Lapautre à décortiqué Magic Mailer et Charts Unlimi- 
ted, il nous présente en outre le nouveau service MEM:TERM. L intégrité de nos bancs d'essai est 
garantie par le fait que nous ne recevons pas de publicité en échange de nos analyses 


La sortie du Macintosh signiñie-t-elle la disparition progressive de la ligne Apple if et /’e ? L'article de 
Daniel Garric et la rubrique Micro-informations. tenue à présent par Jean-Michel Gourévitch, vous 
prouvent le contraire . les nouveaux produis //c et (//x ?} vont compléter la gamme en respectant autant 
que possible le sacro-saint principe de la compatibilité. Olivier Herz complète ces réflexions sur le 
marché de la micro-informatique en nous parlant du Japon. 


Hervé Thiriez 


Ont collaboré à ce numéro : Bimitri Auer —- Dominigue Bernardi — Jean-Michel Bover — Alexandre Duback — Jacques Duma — Pascal 
Fontanier — Daniel Garric — Jean-Michel Geurévitch - Michel Haag — Olivier Herz — Roland Jest —- Yvan Koenig - Guy Lapautre — Jacques 
Leroy — Thierry Le Tallec - Guy Mathieu — Gérard Michel - Jacques Pino — Erick Ringot — Hervé Thiriez. Rédacteurs : Alexandre Avrane — 
Gérard Michel. Dessins : Laurent Bidot Directeur de la publication - rédacteur en chef : Hervé Thiriez Siège social et abonne- 
ments : £ditons MEV - 49 rue Lornartine - 78008 Versailles - Rédaction et courrier des lecteurs : 59. Bd Glatigny - 78000 Versailles 
Tél. : (3) 851.24.43. 

Régie publicitaire : Ferce 7 - Anne Jourdan - 5. place du Colonel Fabien - 75018 Paris - Tél : 249.22.01 

Diffusion auprés des des boutiques et librairies : PSI Diffusion - BP 86 - 77402 Lagny-sur-Marne Cedex 

Composition : Télécompo - 13-15. avenue du Petit Parc - 94300 Vincennes - Tél. : 328.1863 

Impression : Rosay - 47. avenue de Paris - 84308 Vincennes - Té]. 328 18.63 
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DISQUETTES ET MINI DISQUETTES TOUTES CONFIGURATIONS 





- Certification unitaire 100 % sans erreur. 


- Durée de vie : 30 millions de révolutions 
(standard de l'Industrie 3,5 millions de révolutions). 


- Anneau de renforcement en standard sur le 5 1/4" 


- 5 1/4" en 48 et 96 TPI, simple et double face. 


BFI ELECTRONIQUE - 9 RUE YVART - 
75015 PARIS. 
Tél. 533-01-37. 


ARNSSEN EL Se nt 
6 Pom's n° 12 





Ce programme transforme les 16K 
de la carte langage en pseudo-dis- 
quette (disque virtuel): c'est-à-dire 
que la carte langage se comportera 
comme un lecteur de disquettes à 
accès très rapide (et à capacité res- 
treinte). Îl est transparent au Basic et 
au File Manager du DOS Le pro- 
gramme FID fonctionne sans diffi- 
culté avec la pseudo-disquette ainsi 
formée par les 16 K de la carte lan- 
gage. 


Exemples d'utilisation 


On a souvent besoin, lors de la mise 
au point d'un programme, de plu- 
sieurs utilitaires. Ceux-ci peuvent être 
disponibles sur la pseudo-disquette. 


Certains programmes doivent fré- 
quemment accéder à un fichier texte 
pour le modifier ou le compléter. Si 
on le transfère sur la pseudo-dis- 
quette, il ne sera plus nécessaire d'at- 
tendre que la disquette se mette à 
tourner et qu'elle veuille bien présen- 
ter le secteur voulu sous la tête de 
lecture. Les lectures et écritures pren- 
dront moins de temps, surtout si le 
fichier est à accès direct. 


Remarque aux débutants 


Si les paragraphes expliquant le fonc- 
tionnement du programme vous dé- 
passent, vous pouvez sauter directe- 
ment à la partie “Utilisation” de cet 
article. On peut en effet parfaitement 
utiliser ce programme sans pour au- 
tant comprendre son fonctionnement 
(ccmbien de conducteurs connaissent 
la mécanique ?). 


Fonctionnement du 
programme 


À chacune des 64 pages de MEV de 
la carte langage est associé un sec- 
teur. Les trois premières pages de la 
première tranche de 4K de la carte 
langage, comprises entre $D000 et 
$D2FF, correspondent aux trois pre- 
miers secteurs de la piste 17. Ils 
contiennent la VTOC (Volume Table 
Of Contents) en page $D8 et un ca- 
talogue (directory) de deux secteurs. 
Les 13 autres pages de cette tranche 
correspondent aux secteurs 3 à 16 
de la piste 3. Les pistes 4, 5 et 6 
sont associées à la seconde tranche 
de 4K et à la zone $EOOO-$FFFF de 
la carte langage. 


Le programme a été scindé en deux 
modules : un module d'initialisation, 
RWLCINIT (utilisé une seule fois) et 
un module d'accès aux ‘pistes” et 
secteurs” de la carte langage. Ce 
second module, baptisé RWLC, reste 
en mémoire après l’initialisation. 


Module RWLCINIT 


Ce premier module construit la 
VTOC et un catalogue de 2 secteurs 
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VO JMmUEUN 


Disque virtuel 


16 K 


Miche! Haag 
DRRRRRRRRRRRERRRRRRRRRRRRRRRRRREEE 
HR # 
5" RWLC * 
Ad : 
;* MICHEL HAAG (NOV 83) . 
x , 
PTRHRRENRRRANRRERRRRRRRRRERRERRRER 
ORG SBEBO 
OBJ S800 
;EMULATEUR DE DISQUETTE 
; UTILISE LA CARTE LANGUAGE POUR SIMULER 
;UNE DISQUETTE DE 4 PISTES 
10BP EPZ 548 
PTR EPZ $2A > PAGE = SECTEUR“ 
BUFPTR  EPZ $3E 
SECT EPZ $2D 
TRACK EPZ $2E 
TRK EQU $4 
SEC EQU $5 
BUF EQU s8 
CMD EQU S0C 
DRV EPZ $02 
RWLC STY 1OBP 
STA 1OBP+1 
LDY #DRV ; TOUT APPEL DE RWTS EST 
LDA (CIOBP),Y :AIGUILLE SUR RWLC. LE 
CMP #2 ; CONTROLE EST REDONNE A RWTS 
BEQ RWLCI :S1 LE LECTEUR EST Di 
JMP SBDO3 


TRANSFERT DE POINTEURS EN PAGE ZERO 


= ve = 


RWLC1 LDY 
LDA 
STA 
INY 
LDA 
STA 
LDY 
LDA 
STA 
LDY 
LDA 
STA 


#BUF 
(CIOBP),Y 
BUFPTR 


> BUFFER DANS BUFPTR 


(CIOBP),Y 
BUFPTR+1: 
#SEC 
(IOBP),Y 
SECT 
#TRK 
(I@BP),Y 
TRACK 


;: SECTEUR DANS SECT 


: PISTE DANS TRACK 


DETERMINATION DU BLOCK DE 4K 


ve 


CMP 
BEQ 
CMP 
BE@ 
BMI 
CMP 
BPL 
LDA 
LDA 
LDA 
STA 
LDA 
SEC 
SBC 
ASL 


#S11 
RAMI1 
#3 
RAM1 3PISTE 3 = 
ERR 
#7 
ERR 
sCe83 
$sCO83 
#06 
PTR 
TRACK 


:VTOC OÙ DIR. 


L1ERS 
RA#2 :PISTE 4,5 OÙ 6 

:DE 4K DE LA CARTE 
:BTR = 


#S064 





4K DE LA L.C., 


:@6N COMMUTE LA PREMIERE ZONE 


DB6-:518-(FRACK-4)-SECT 








sur la carte langage. Il procède en- 
suite à quelques modifications du 
DOS. Sur la table d'occupation du 
VTOC, seuls les secteurs existant ef- 
fectivement sont signalés comme 
étant libres. RWLCINIT met ensuite 
un BRK ($00) en $BEAF et inhibe la 
commande DOS INIT. Il place enfin 
un JMP $RWLC à l'entrée de RWTS 
en $BDOO. 


Module RWLC 


Ce second module débute en $BEBG 
et comporte 144 octets Il recouvre 
donc en partie la commande INIT du 
DOS. Tout appel de RWTS est ai- 
guillé vers RWEC. Si le lecteur 
concerné est le lecteur 1, RWLC re- 
donne le contrôle à RWTS, Si c'est 
le lecteur 2, RWLC détermine la 
page de la carte langage qui est invo- 
quée et procède aux échanges de- 
mandés entre cette page et le buffer 
pointé par lIOB. Si les appels de 
RWTS sont effectués par le File Ma- 
nager du DOS, il sera automatique- 
ment tenu compte de la VTOC créée 
par RWECINIT. Le File Manager ne 
fera référence qu’à des secteurs exis- 
tant effectivement sur la carte lan- 
gage. Si par contre on ne souhaite 
pas tester soi-même les numéros de 
secteur et piste. il faut éviter d’accé- 
der directement à la carte langage 
par RWTS. qui continuera cependant 
à donner des résultats parfaitement 
normaux sur le lecteur 1. 


Utilisation du 
programme 


Ce programme ne peut fonctionner 
que si une carte langage est installée, 
et non déjà utilisée par le programme 
{ou un langage, ou un DOS relogé). 
Il faut faire, dans l’ordre 


BLOAD RWLC.OBJ 
BRUN RWLCINIT.OBJ 


On peut à la place exécuter un fi- 
chier EXEC qui contiendrait ces deux 
commandes. La pseudo-disquette 
s'est maintenant substituée au se- 
cond lecteur qui. par conséquent, ne 
peut plus être utilisé par le pro- 
gramme. Tout ordre du DOS suivi 
de ”.D2” invoquera dorénavant la 
pseudo-disquette. De plus, comme 
dans le cas d'un lecteur réel. le dis- 
que utilisé par défaut restera le dis- 
que virtuel jusqu'au prochain appel 
du drive 1 (par exemple avec CATA- 
LOGDI). Les programmeurs possé- 
dant deux lecteurs pourront décon- 
necter RWELC et retrouver le second 
lecteur par POKE 488258. Pour re- 
connecter RWLC. il suffira de faire 
POKE 488252. 


Pour échanger des fichiers entre la 
disquette 1 et la pseudo-disquette, il 
sera commode d'utiliser le FID. Enfin 
un dernier avertissement : les infor- 
mations contenues sur la carte lan- 
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ADC #SD0 
ADC SECT : TOUJOURS BRANCHE 
STA PTR+:I PISTE SOUS TL 
BCC ExQ 

RAM1 LDA #S$00 : CALCUL DE LA PAGE 
STA PTR 


LDA SECT 
ABC #SDO : COMMUTE LA ZIEME Z@8NE 
STA PTR+1 
LDA SC@68B : "LECTURE" OU “ECRITURE 
LDA SCO8B 
EX@ LDY #CMD 
LDA (IOBP),Y 
CP #0 
BEQ RET 
CMP #1 
BEQ REAB 
CHP #2 : PR@SVOQUE UN 1/8 ERROR 
BEQ WRITE : COMNUTE LA MEM 
ERR SEC 
RET LDA SCO82 
LDA SCO8A 
RTS :LIT UN "SECTEUR" 


READ LDY #560 
BR1 LDA (PTR),Y 
STA (CBUFPTR),Y 
BNE BR1 
BCC RET 
WRITE LDY #S00 3; ECRIT UN "SECTEUR" 
Bai LDA (BUFPTR),Y 
STA (PTR),Y 
BNE Bw1 


BCC RET 
LENGTH = *-RWLC 


RRRRRRRRRERRRERRRRRRRRRRRRRRRRR 
RYWLCINIT 


MICHEL HAAG (NOV 83) 


* © À + x » 


+ 
1 
# 
L 
# 
L 


Ne ne VS ve NS Ne Ve 0 ve 


ORG $8000 
OBJ $803 


PTR EP2 $S2A 


INITIALISE UN VTOC ET UN DIRECTORY SUR LA PREMIERE 
> ZONE DE 4K DE LA CARTE, PAGE DO, Di ET D2. MODIFIE 
;LE DOS. 


INIT: 
LDA S$CO8B :VALIDE LA 1ERE TRANCHE DE 4K 
LDA $CO8B :DE MEV DE LA CARTE LANGAGE 
LDA #0 :MET LE VTOC ET LE DIR À O 
STA PTR 
LDA #SD0O 
STA PTR+1 
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gage sont volatiles et disparaissent 
avec l'extinction de l'appareil: il fau- 
dra donc penser (en fin de séance) à 
transférer sur une disquette réelle le 
contenu de la carte langage si l'on 
souhaite le conserver. 


Pour les adresses du DOS et la cons- 
truction de la VTOC, voir Beneath 
Apple DOS. de Worth et Lechner. 
Pour flinhibition de la commande 


INIT. voir “Une incursion dans les 
mystères du DOS” (Pom's 2). 


BEBO- 84 48 85 49 AO 02 B1 48 
BEB8- C9 02 FO O3 4C O3 BD AO 
BECO- O8 B1 48 85 3E C8 B1 48 
BEC8- 85 3F AO O5 B1 48 85 2D 
BEDO- AO O4 B1 48 85 2E C9 11 
BED8- FO 25 CS 03 FO 21 30 40 
BEEO- CS 07 10 3C AD 83 CO AD 
BEE8- 83 CO AS 00 85 2A AS 2E 
BEFO- 38 ES O4 OA OA OA CA 69 
BEF8- DO 65 2D 85 2B 3O 11 A9 
BFO00-+ O0 85 2A 18 AS 2D 69 DO 
BFO8- 85 2B AD 8B CO AD 8B CO 
BF10- AC OC B1 48 C9 OO FO 09 
BF18- C9 O1 FO OC CS O2 FO ï4 
BF20- 38 AD 82 CO AD 8A CO 60 
BF28- AO OO B1 2A 91 3E 88 DO 
BF30- F9 18 SO ED AO 00 B1 3E 
BF38- 91 2A 88 DO F9 18 30 E1 


Récapitulation 
RWLCINIT.OBJ 


8000- AD 8B CO AD 8B CO A9 O0 
8008- 83 2A A9 DO 85 2B A9 O0 
8010- AO O0 931 2A 88 DO FB E6 
8018- 2B AS 2B C3 D3 DO EF A9 
8020-+ DO 85 2B AC O6 B9 8F 80 
8028- 91 24 88 10 F8 A9 7A 8D 
8030- 27 DO A9 983 8D 30 DO A9 
8038- O1 8D 31 DO 8D 37 DO A9 
8040- 23 8D 34 DO AS 10 8D 35 
8048- DO A2 O4 A9 FF AO O0 93S 
8050- 44 DO C8 99 44 DO C8 C8 
8058- C8 CA DO F3 AS F8 8D 45 
8060- DO E6 2B AO O1 AS 11 931 
8068- 2A C8 AS O2 91 2A 18 AD 
8070- 82 CO AD 8A CO AO 03 BS 
8078- 8B 80 99 00 BD 88 10 F7 
8080- AS OO 8D AF BE AS SB 8D 
8088- 84 A8 60 4C BO BE EA O4 
8030- 11 01 O3 O0 OO FE 
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B3 


B2 


B1 


; TABLE D’ 


B4 


ss 


MODIFIE 


’ 


B5 


PATCHTBL 


VTOCTBL 
LENGTH 


LDA 
LDY 
STA 
DEY 
BNE 
INC 
LA 
CMP 
BNE 


LDA 
STA 
LDY 
LDA 
STA 
DEY 
BPL 
LDA 
STA 
LDA 
STA 
LDA 
STA 
STA 
LDA 
STA 
LDA 
STA 


OCCUPATION DU VTOC 


LDX 
LDA 
LDY 
STA 
INY 
STA 
INY 
INY 
INY 
DEX 
BNE 
LDA 
STA 


DIRECTORY 


INC 
LDY 
LDA 
STA 
INY 
LDA 
STA 
CLC 
LDA 
LDA 


#0 
#$500 
CPTR),Y 


B2 
PTR+1 
PTR+1 
#SD3 
B3 


#SDO 
PTR+1 

#06 
VTOCTBL, Y 
(PTR) ,Y 


B1 
#S7A 
SDO27 
#503 
SDO30 
#s01 
SDO31 
SDO37 
#523 
SDO34 
#$10 
$SDO35S 


#4 
#SFF 
#O 
SDO44,Y 


SDO44, Y 


B4 
#6F8 
SDO45 


PTR+1 
#1 

#S11 
CPTR),Y 


#2 
€PTR),,Y 


$SCco82 
SCO8A 


LE DOS 


LDY 
LDA 
STA 
DEY 
BPL 
LDA 
STA 
LDA 
STA 
RTS 
JMP 
NOP 
BYT 


END 


#03 
PATCHTBL, Y 
SBDOO, Ÿ 


B5 
#SOO 
SBEAF 
#S5B 
SA884 


S$SBEBO 


8 PREMIERS OCTETS DU VTOC 


;OCTETS 8 A S37 


> DERNIERE PISTE ALLOUEE 


255 OCTETS/SECT 
:$23 {35) PISTES 


:$10 SECTEURS/PISTE 


:LES PISTES 3, 4 ETS 
: SONT LES SEULES LIBRES 


3SAUF LES SECTEURS @,1 ET 2 
:DE LA PISTE $11: 


;: PROCHAIN SECTEUR DU DIR. 
:PISTE S$11, SECTEUR 2 


;: COMMUTE LA MEM 


>; AIGUILLE TOUT APPEL 
;DE RWTS SUR RWLC 


; EMPECHE UNE INITIALISATION 


;PROVOQUE UN SNTX ERR POUR 
3; TOUTE UTILISATION DE INIT 


;: MODIFICATION DU DOS 


S4,$11,$1,$3,0,0,SFE 


#-INIT 


LE 


RUNENNRSEAN 
ROESUNGRAUENAUX 


Œn 
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En <e 7iN\R 
Eee :: 


UNSICOB 





PROGICIELS, 
MINI, MICRO-ORDINATEURS 
(JOURNÉES GRAND PUBLIC: 18 ET 19 MAI) 





es 
Information: SICOB (+) 261.52.42 -— 4, place de Valois - 75001 Paris 


Charts Unlimited est un éditeur gra- 
phique (ou plus précisément un aide 
à la réalisation de dessins) vendu 
$195 par Graphware (5684 Mosiman 
Road - Middletown - OH 45842). Il 
se présente sous la forme désormais 
classique d’un classeur rigide, avec 
documentation et une disquette. Ce 
programme n’est pas encore, à notre 
connaissance, vendu en France. 


Il est destiné à créer et à imprimer 
des schémas et dessins tels que : or- 
ganigrammes,  ordinogrammes de 
traitement, synoptique de processus 
industriels, etc. Il ne peut pas servir 
directement à représenter des séries 
numériques comme le font des logi- 
ciels tels que Visiplot, Décisionnel 
Graphique (essai dans le Pom's 10), 
Business Graphics ou PFS-Graph. 


Les avantages et inconvénients de 

Char Unlimited sont évalués en 

fonction de ce qu’un utilisateur est 

en droit d'attendre d’un tel logiciel, 

avec parfois référence implicite ou 

explicite à d’autres logiciels de même 

objectif. Ils sont présentés sous 7 

têtes de chapitres : 

1 - Apprentissage du logiciel 

- La ”’page” écran 

- Fonctions de dessin disponibles 

- Objets et symboles 

- L'édition sur imprimante 

- Utilitaires : gestion des disques, 
liaisons externes 

- Documentation 


JO On wN 


Apprentissage du 
logiciel 


L’abord du logiciel est assez aisé : il 
se fait grâce à un ’Tutorial” qui 
consiste à tracer un organigramme 
d’entrepiise, et permet de couvrir la 


plupart des fonctions du logiciel. 


Une fonction AU SECOURS”, invo- 
quée par la #ouche ”?”, propose un 
simple synoptique des commandes 
disponibles. 


On pourra s'étonner du choix fait 
pour les lettres plus ou moins mné- 
motechniques permettant l'appel des 
commandes (même en Anglais): E 
(pour ”’ERASE”) ou D (pour ’DASH 
LINE”), d'accord, mais B pour dési- 
gner des “OBJETS STANDARDS” 
ou Ÿ pour définir des objets. 


Il faut s’habituer au mode de dépla- 
cement du curseur . 8 lettres pour les 
8 directions dans toutes les comman- 
des, sauf en mode texte où l’on re- 
trouve les 4 flèches de direction 
(pour l'Apple //e). 


Il est assez commode de configurer 
son système imprimante/interface … 
à condition que ces deux matériels fi- 
gurent dans les listes proposées. 
Sinon, quelques tâtonnements sup- 
plémentaires semblent conduire en 
général à un résultat satisfaisant. 
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Charts Unlimited à l’essai 


Avantages: Simplicité d'emploi - 
Nombreuses fonctionnalités d’un 
abord aisé - Ecran clair. 


Inconvénients : Codes de comman- 
de pas toujours évidents - Quelques 
problèmes dans le maniement du 
curseur. 


Synthèse : Dans l’ensemble, pas de 
gros reproches, malgré quelques in- 
commodités mineures. Un Tutorial” 
bien fait On commence à ‘se dé- 
brouiller”’ avec Charts Unlimited en 2 
heures environ. 


La ”’page” écran 


L’écran est une fenêtre de 37 colon- 
nes sur 19 lignes dans une page de 
123 colonnes sur 98 lignes. Des 
échelles placées en haut et à gauche 
de l'écran montrent à quel endroit 
on se trouve dans la page. 


En bas, une ligne de commande per- 
met de savoir quelle est la fonction- 
nalité en cours. Chaque commande 
est appelée par une lettre code. On 
en ressort TOUJOURS par la touche 
ESC. 


Nous avons déja parlé du positionne- 
ment du curseur. Sauf en mode 
texte, il se fait par le groupe assez 
traditionnel de lettres ’U I @JKN 
M <” pour obtenir les 8 directions 
de déplacement, il vaut donc mieux 
être en mode US sur un clavier //e. 
Les 4 flèches de direction (version 
/le) servent à un déplacement rapide, 
jusqu'aux bords de l'écran. 


En mode texte, les déplacements se 
font avec les 4 flèches; RETURN ren- 
voie à la ligne suivante, DEL efface 
le caractère sous le curseur (et non le 
précédent...) et CTRL:I crée un es- 
pace (pour insertion). 


On a souvent besoin de désigner une 
zone rectangulaire de l'écran : sauve- 
garde, duplication. Ceci se fait 
commodément en se plaçant succes- 
sivement dans les angles supérieur 
gauche et inférieur droit. et en ’’mar- 
quant” ces angles par RETURN. 


Par ailleurs, une fonction VIEW” 
permet d'obtenir, dans un petit rec- 
tangle en bas et à droite, un fac-si- 
mile réduit de la page entière 


Avantages : Ecran clair - Vision très 
commode de la page entière - Mode 
unique d'entrée et sortie de chaque 
commande - Puissance de la notion 
de ’zone”. 


Guy Lapautre 


Inconvénients : Quelques petits 
problèmes de déplacement du cur- 
seur - La désignation de zones est 
parfois une commodité dange- 
reuse : on peut, en l’omettant, perdre 
complètement le résultat d’une 
séance de travail. 


Synthèse : Là encore. les avantages 
l’emportent sur les inconvénients. On 
regrettera toutefois qu’il n’v ait pas 
un verrouillage de la fonction de sau- 
vegarde quand on à omis de dési- 
gner préalablement la zone à sauve- 
garder. 


Les fonctions de dessin 
disponibles 


Elles sont désignées ci-dessous par 
leur équivalent en français. 


TEXTE : permet Pécriture de tous 
les caractères imprimables. L'écriture 
ne peut pas traverser un dessin déjà 
fait. Elle est limitée à l’intérieur d'une 
case, où à une zone vide... 


LIGNES : droites pointillées (Dash) 
ou pleines (Solid) tracées grâce aux 
8 touches de direction. Quelques 
petits problèmes de jonction selon les 
sens successifs de tracé. 


OBJETS : on désigne par ce voca- 
ble des élément de dessin pré-éta- 
blis. Il existe un jeu dit ‘’standard” de 
36 éléments, qu’on peut manipuler, 
agrandir, déformer, (un mini 
"Lisa-Draw”, par anticipation). L'uti- 
lisateur peut créer autant de jeux 
qu'il le souhaite (on trouve une cer- 
taine analogie avec le logiciel de trai- 
tement de texte Gutenberg - voir 
Pom's 11). Mais Jles fonctions 
d’'agrandissement ne sont pas dispo- 
nibles. 


SYMBOLES : analogues aux objets, 
au nombre de 26, non transforma- 
bles. L'utilisateur ne peut pas créer 
ses propres jeux. 

DUPLICATION : reproduction, 1 ou 
n fois, d’une zone”, à intervalles 
équidistants sur une ligne (encore 
une idée reprise et développée dans 
Lisa-Draw). 
EFFACEMENT 
d'une zone. 


d'un point, ou 


Avantages : Nombreuses fonction- 
nalités que l’on ne retrouve qu'avec 
des outils plus puissants mais sensi- 
blement plus coûteux. 


Inconvénients: Ils ne seraient sans 
doute pas cités si on n'avait pas vu 
plus fort depuis. mais pas sur le 
même matéiiel ni au même prix... 





On pourra, à la rigueur, regretter 3 
choses : l'impossibilité d'agrandir les 
objets utilisateur, le manque d'accès 
aux points élémentaires sur l’écran 
(voir Micro Painter, E-Z Draw ou 
Koala Pad), et enfin l'absence d'un 
outii de calcul associé. 


Synthèse : Certains produits récents, 
sur des ordinateurs plus puissants, ou 
sur Apple Il avec des compléments 
matériels et logiciels peu économi- 
ques, nous ont habitués à d’excellen- 
tes performances dans le dessin. 
Charts Unlimited n'atteint évidem- 
ment pas ces performances. Mais, 
par sa simplicité comme par son prix, 
c'est un outil remarquable aux nom- 
breuses fonctionnalités. 


Objets et symboles 


La palette offerte comprend une 
planche de 36 objets dits standard”, 
dont beaucoup sont inspirés des des- 
sins d'ordinogrammes, et une plan- 
che de 26 symboles variés. La fonc- 
tion de création permet à l'utilisateur 
de créer autant de planches de 26 
objets qu'il le souhaite, en partant 
d'objets ou symboles existants, de 
tracés nouveaux et de textes. 


Les objets standards peuvent de plus 
être agrandis dans une ou deux di- 
rections (suivant les objets), et par 
conséquent déformés. Un cercle peut 
devenir un ovale, un petit carré un 
gand rectangle, etc. Symboles et 
objets utilisateur ne peuvent pas être 
modifiés dans leurs forme et dimen- 
sions. 


Avantages: Tracés rapides, et très 
simples dès lors qu'on a constitué sa 
(ses) propre(s) planche{s) d'objets - 
Appel rapide, mais seules les plan- 
ches d'objets standards et de symbo- 
les peuvent être visualisées à l'écran. 


Inconvénients: ! est regrettable 
que les objets créés par l'utilisateur 
ne disposent pas des mêmes fonc- 
tionnalités que les objets standards - 
Impossibilité de travailler au niveau 
du point élémentaire. 


Synthèse: L'idée des ‘planches 
d'objets”, qui a été reprise par des 
produits modernes plus dispendieux, 
est une des grandes forces de Charts 
Unlimited. Quel dommage que l’utili- 
sateur ne puisse pas, à son gré. utili- 
ser ses propres objets en place des 
objets standards. 


L'édition sur imprimante 


Un large choix d'imprimantes et d'in- 
terfaces est proposé à l’utilisateur, à 
parti d'un menu de configuration 
très simple à utiliser. Le problème ris- 
que de se compliquer un peu si l’im- 
primante et/ou l'interface qu'on pos- 
sède ne figurent pas dans la liste. 
Mais un peu d'habitude permet en 
général de faire des assimilations. 





Îl est possible d'imprimer les graphi- 
ques, et ce en simple ou double di- 
mension, verticalement ou hoïrizonta- 


lement sur le papier. La simple 
dimension, dite normale” est en fait 
très condensée (elle permet, sur pa- 
pier 21x31, l'impression d’un graphe 
de 123 colonnes dans le sens de la 
largeur du papier. Mais les dessins 
sont en réalité raccourcis, ce qui in- 
troduit une déformation des objets et 
symboles. 


L’impression en double dimension 
ne double en fait que la largeur, res- 
tituant aux objets leur forme nor- 
male. Mais il est nécessaire, pour un 
schéma dépassant une soixantaine 
de colonnes, de travailler ”’verticale- 
ment”. À ce moment, un schéma de 
123 colonnes tient juste dans une 
feuille de papier 21x31, mais seules 
les 2/3 des lignes supérieures sont 
imprimées. 
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Avantages : Un bon choix d'impri- 
mantes et d'interfaces - Deux possibi- 
lités de dimensions d'impression et 
deux sens pour chacune d'elles. 


Inconvénients : Une lenteur d’im- 
pression presque désespérante {les 
temps se comptent en longues minu- 
tes !). 


Synthèse : Bonnes possibiltés. pour 
qui est patient. 


Utilitaires : gestion des 
disques, liaisons exter- 
nes 


Le temps de chargement du pro- 
gramme est assez long, mais on est 
ensuite tranquille. La configuration 
imprimante, étant sauvegardée sur le 
disque programme, est chargée avec 
celui-ci si on ne souhaite pas la mo- 
difier. 


Les fonctions classiques d'échange 
avec le disque sont présentes. Bien 
que le travail avec deux lecteurs soit 
plus confortable, les transferts sont 
suffisamment peu nombreux pour 
qu'on puisse se contenter d’un seul 
lecteur. 


À signaler un grave inconvénient de 
la fonction de sauvegarde : si on n’a 
pas pris la précaution de désigner la 
zone à sauvegarder, l'option par dé- 
faut n'est pas *"TOUT” mais "RIEN” 
(pas d'avertissement : on a simple- 
ment l'impression d'un dysfonction- 
nement qui disparaît après deux RE- 
TURN) … ce qui bien entendu risque 
de faire perdre un long temps de tra- 
vail et, pour comble de malheur, ef- 
face sans pitié ce qui avait été préala- 
blement sauvegardé sous le même 
nom. 


Par ailleurs, notons que Charts Unli- 
mited est un logiciel isolé, non prévu 
pour communiquer avec d'autres lo- 
giciels commerciaux. 


Avantages: Transferts peu nom- 
breux - Configuration imprimante 
chargée avec le programme. 


Inconvénients : Le manque de pro- 
tection, ou au minimum d'avertisse- 
ment, contre une sauvegarde sans 
désignation préalable de zone - L’iso- 
lement du logiciel, qui ne peut-prati- 
quer d'échange avec aucun autre. 


Synthèse : Peu de remarques, si ce 
n'est qu'il est difficilement admissible 
de voir dans un logiciel plein de qua- 
lités une telle absence de sécurité. 


Documentation 


La documentation, en anglais seule- 
ment (il faut dire que le produit nous 
est arrivé directement des USA), 
comporte deux parties distinctes. 
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La première est un “Tutorial”, qui 
enseigne l'essentiel du logiciel autour 
d'un exercice sur la construction de 
lorganigramme d'une entreprise. 
C'est simple et bien fait. 


La seconde est classiquement pré- 
sentée par fonctions. Les fonctions 
apparaissent dans l'ordre alphabéti- 
que de la lettre-code qui sert à les 
appeler, donc sans aucune logique. 
Si l'on se souvient par ailleurs que 
les mnémoniques sont parfois étran- 
ges, on conçoit qu'il eût été préféra- 
ble de choisir un autre ordre ! 


Ne croyez pas que l'index final va 
apporter une aide supplémentaire : il 
est alphabétique lui aussi. 


Enfin, pas de synoptique comme cela 
existe maintenant pour la plupart des 
logiciels. 


Avantages : Bonne approche par le 
Tutorial”. 


Inconvénients : Ordre de présenta- 
tion peu logique dans la partie ”Ma- 
nuel de Référence” - Absence d'un 
tableau synoptique - Documentation 


en anglais seulement, mais pour un 
produit encore non commercialisé en 
France. 


Synthèse : C'est propre et bien pré- 
senté, comme c'est généralement le 
cas pour les documentations améri- 
caines - Mais, à l'exception de la par- 
tie apprentissage, c'est fort peu 
commode à exploiter. 


Conclusion 


En avance par rapport aux logiciels 
de dessin qu'on voit maintenant sur 
le marché, Charts Unlimited reste un 
produit très attrayant et très compéti- 
tif, puisqu'il n'exige aucun accessoire 
matériel. 


Parmi ses faiblesses : L’isolement 
du logiciel qui, par ailleurs, ne dis- 
pose d'aucun outi de calcul - L’im- 
possibilité de descendre au niveau du 
point élémentaire - Un traitement 
moins complet des objet utilisateur 
que des objet standards - Une insuf- 
fisance de sécurité au niveau de la 
sauvegarde. 

Et, à un moindre titre : Une impres- 


sion extrêmement lente - Un certain 
ésotérisme dans la désignation des 
commandes - Une documentation 
peu facile à exploiter. 


Parmi ses forces: De très nom- 
breuses fonctionnalités, capables de 
satisfaire un utilisateur exigeant - Un 
écran clair, avec rappel possible d’un 
schéma complet pour contrôle - D’in- 
téressantes solutions d'impression - 
Une approche aisée et un apprentis- 
sage rapide - De très utiles notions 
de zones, d'objets et de symboles. 
Et, à un moindre titre : Un bon tuto- 
rial - Une agréable facilité de configu- 
ration du système d'impression. 


Pour les possesseurs 
d'Apple //e 


Attention à la touche 7’CAPS 
LOCK”, qui doit toujours être enfon- 
cée (sauf en mode texte): dans le 
cas contraire, le logiciel ’ne 
comprend rien”, refuse toute entrée 
sur la ligne réservée et ne prévient 
pas (mais ne va pas jusqu’à se blo- 
quer). M 








Ada/fin, 








17 agents 
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8 codres 
85 representanis 41) 


(1) dont environ: 
1/2 en GRECE 
172 a l'etranger 





12 codes 
$25 ouvriers 





DYON]- 
$0$ 





21 cadres et techniciens 
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Cryptographes et arithméticiens, à 
vos claviers ! 


Ce Calculateur Entier permet de faire 
des opérations avec de très grands 
nombres. il accepte jusqu’à 500 chif- 
fres par nombre pour les calculs. Le 
“prompt” qui indique que le pro- 
gramme attend vos ordres est le 
signe pour-cent °%”. 


Les règles de syntaxe de ce Calcula- 
teur Entier sont formalisées en nota- 
fion BNF. Les unités syntaxiques dé- 
finies sont entre chevrons (”<” et 
>"). Les termes de leur définition 
suivent les trois symboles ”:=”. Le 
signe ‘’!” sépare les différentes 
formes que peut prendre une unité 
syntaxique. Les parties optionnelles 
sont notées entre accolades (”{” et 
7”) “RETURN” signifie : taper la 
touche RETURN. Tous les autres 
symboles qui ne sont pas entre che- 
vrons forment l'alphabet du langage 
du Calculateur. 


Mise en route 


Le code source Lisa est fourni (CAL- 
CULATEURL), ainsi que le code 
objet en binaire  (CALCULA- 
TEUR.B). La version standard est as- 
semblée à l'adresse 2112 (décimal) 
ou $840 (hexa). Pour lancer le pro- 
gramme, il suffit de faire 


BRUN CALCULATEUR.B 


L'écran est effacé et on peut lire, en 
haut et à gauche : 


FAIRE : CALL 2112 


Si l'on exécute cette instruction, on 
se retrouve sous le contrôle du Cali- 
culateur Entier. Le prompt est le 
signe pour-cent %”. 

Si. par accident, on quitte le pro- 
gramme (par exemple en faisant 


RESET ou une erreur DOS), on peut 
ÿ retourner sans perdre les variables 


en cours d'utilisation. Pour cela, il” 


faut faire : 


& (en Applesoft) ou CTRL-Y (en 
mode moniteur). 


Si, à la suite d’une sortie. on désire 
réinitialiser le programme. ïl faut 
faire : 

CALL 2112 (en Applesoft) ou 840G 
(en mode moniteur). 


Si {a position du programme en mé- 
moire ne vous convient pas, vous 
pouvez Flassembler à une autre 
adresse (à condition qu'elle soit 
comprise entre $805 et $66D0). 
Tout ce qui précède reste valable. 
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Le Calculateur Entier 


seule l'adresse d'appel change. Au 
début. vous verrez apparaître sur 
votre écran : 


FAIRE : CALL aaaa 


où aaaa sera l'adresse décimale cor- 
respondant à l'adresse hexa d’origne 
de votre programme. Si par exemple 
vous mettez ‘ORG $805” en ligne 2 
du texte source, le programme affi- 
chera : 


FAIRE : CALE 2053 


Etudions à présent les possibilités de 
ce programme. 


Commandes 


Le Calculateur Entier est un interpré- 
teur de lignes Chaque ligne de 
commande contient au plus 250 ca- 
ractères et doit se terminer par ‘’RE- 
TURN? 


<Ligne> ::= 
<Commande>"RETURN" | 
<Commande DOS>"RETURN" 
<Commande> ::= 
{ <Dièse>}<Instruction>|| 
<Commande> : 
{ <Dièse>}<Instruction> 
<Dièse> ::= <Constante># 


Îl peut y avoir plusieurs instructions 
par ligne. séparées par deux-points 


:”. Les blancs ne sont pas pris en 
compte. 


Le <Dièse> optionnel devant une 
<Instruction> représente un facteur 
répétiteur. La constante qui le pré- 
cède, et qui doit être un entier positif 
inférieur à 256, indique combien de 
fois la ligne doit être exécutée (voir la 
secton sur les facteurs répétiteurs). 


Une <Commande DOS> est une 
commande du DOS standard. En 
fait, on utilisera seulement les 
commandes (CATALOG. BSAVE 
(pour sauvegarder les résultats d’un 
travail}, BLOAD (pour récupérer un 
travail en cours), PR#@ et PR#1 
(pour diriger l’affichage vers l'écran 
ou l'imprimante). Une commande du 
DOS doit bien sûr être seule sur sa 
ligne. 


Exemples de lignes : 


ZGBLOAD nomfichier “RETURN” 
H?2*x3. À =2/3R. $: @ ‘RE- 
TURN” 

Le signe pour-cent "%' est le 
prompt et la touche RETURN est 
tapée en fin de ligne. Nous verrons 
plus loin la signification du ‘$” et de 
larrobas "@”. 
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Instructions 


Il V a trois types d'instructions, pour 
l’initialisation du système, les affecta- 
tions, et les affichages. 


<lnstruction> ::= & |. || y || <Affec 
tation> || <Affichage> || <Rien> 
<Rien> ::= 


La virgule () est une pause entre 
deux instructions. À l'exécution, trois 
bips sont émis et il faut appuyer sur 
une touche pour continuer. Si 
CTRL-C est appuyé à ce moment-là, 
il y à une interruption normale. 


Le guillemet (”} permet d'introduire 
des remarques dans le déroulement 
d'un calcul. Tout ce qui suit le (”} 
jusqu'au (:) suivant ou jusqu'à la fin 
de la ligne est simplement recopié à 
l'écran (les espaces sont supprimés). 
Par exemple : 

"ZERO : A=0: ?A: 

A=A+1 : "UN : ?A : "FINI 

affichera : 

ZERO 


<Rien> signifie q'une instruction 
peut être vide (dans une ligne, on 
peut avoir ”:” sans rien entre les 
deux-point séparateurs). 


Initialisation 


& est l'instruction qui pennet de dé- 
saffecter toutes les variables en cours 
d'utilisation. Cette instruction, avant 
de réinitialiser tout le système, de- 
mande confinnation par : 


RAZ (O/N) ? 


Si la réponse est @ pour OUI, le sys- 
tème est réinitialisé: dans le cas 
contraire, on retourne au niveau de 
commande sans rien perdre. 


Attention : le chargement d’un fichier 
de variables à partir d’une disquette 
fait perdre tout le contenu actuel de 
la mémoire. 


Instructions d'affectation 


Ce programme n'est qu’un calcula- 
teur et non un analyseur d'expres- 
sions arithmétiques. On ne peut donc 
faire qu’une opération par instruc- 
tion, mais on peut avoir plusieurs ins- 
tructions par ligne. 


Remarque : si les nombres sont très 
grands. les calculs peuvent durer un 
temps appréciable; il ne faut surtout 
pas s'impatienter. 


Le 
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Les additions et soustractions sont ra- 
pides. 

Une multiplication de deux nombres 
de 250 chiffres peut durer jusqu’à 15 
secondes. 

L'élévation à une puissance peut at- 
teindre 25 secondes (2 1685 par 
exemple). 

La division est la plus longue : la di- 
vision d'un nombre de 500 chiffres 
par un nombre de 1 chiffre peut 
prendre 60 secondes. 


<Affectation> ::=<Variable> = 
<Expression>{;<Variable> } 
<Expression> ::= 
{-} <Primaire> ||{-}<Primaire> 
<Opérateur><Primaire> 
<Primaire> ::= q 
<Variable> |<Constante> 
<Opérateur> ::= | 


+111 


Les opérations permises sont donc 
l'addition, la soustraction, la multipli- 
cation, la division entière {avec ”/”}, 
qui peut fournir son reste (à condi- 
tion que les deux opérandes soient 
positifs), la puissance entière à expo- 
sant positif (avec ” ”) et enfin la 
multiplication par une puissance de 
10 (avec l'apostrophe). 





Voici quelques exemples . 


A=-3+123: B=A 5: C=A/B: 
D=-AsxC: C=12-A: A=A/A:A: 
C=33/5:B 


Pour la division entière, on a avec le 
reste la possibilité d’une affectation 
double. Exemple 


Q=13/5 : la valeur 2 est affectée à 
la variable Q. 

Q=13/5R la valeur 2 est affectée 
à Qetlerest.3àRk. 


R=13/58R : la valeur 2 est affectée à 
R. puis 3 est aussi affecté à R. Le 2 
est donc perdu, mais on a ainsi ob- 
tenu le reste de la division en utili- 
sant une seule variable … 


L'option {;<Variable> } n'est accep- 
tée par le Calculateur, à la suite 
d'une affectation, que dans le cas de 
la division. Dans les autres cas, une 
erreur est détectée. 


L'apostrophe (‘} permet de faire très 
rapidement les multiplications et divi- 
sions par les puissances de 10 (des 
décalages). X'N est égal à Xx(10 N). 
X et N peuvent être positifs ou néga- 
tifs. Par exemple, si N=5 et M=-5, 
alors : 

? 123456789N donne =12 3456 
7890 0000 

? 123456789'M donne =01 2345 

Si exposant de 10 est négatif. cette 
opération ne rend pas de reste, 
contrairement à la division. 


Éimites - Les règles suivantes 
doivent être respectées : 


e les deux opérandes d'une division 





doivent être positifs: 

® il n'est pas possible de diviser par 
zéro; 

e lexposant d'une puissance doit 
être positif: 

e tout résultat après calcul doit avoir 
moins de 509 chiffres. 

e l'exposant de 10 dans (’) ne doit 
pas dépasser 511 en valeur abso- 
jue. 


Si l'on désire affecter à une variable 
un nombre de plus de 250 chiffres. il 
faut procéder par étapes car la ligne 
est limitée à 250 caractères. Ainsi. un 
nombre de 400 chiffres sera affecté à 
la variable X en deux lignes : 


Z X=(la suite des 200 premiers chif- 
fres) 200 "RETURN" 
Z X=X+{la suite des 200 derniers 
chiffres) "RETURN" 


Variables 


On dispose de 26 variables distinctes. 
Chaque variable a pour identificateur 
une des lettres de l'alphabet (A..Z) 
et pour valeur un nombre entier rela- 
tif, c'est-à-dire un entier positif, nul 
ou négatif. 


<Variable> :.= 
AIBICID'E'FIGIANJIKILIMIN'O!P'Q 
RISITIUIVIWIXIYIZ 


À l'initialisation du système. les varia- 
bles ne sont pas affectées (elles n'ont 
pas de valeurs). 


L'utilisation d'une <Variable> non 
initialisée dans une <Expression> 
provoque le message d'erreur : 


? VARIABLE ‘x’ NON AFFECTEE 


Pour utiliser une <Variable>, il faut 
donc l'initialiser en lui affectant pour 
valeur une <Constante> ou une 
<Expression>. 


Constantes 


Une constante est un nombre entier 
positif. 


<Constante> .= <Chiffre> || 
<Constante><Chiffre> 
<Chiffre> ::= 0111213141516171819 


Î y a cependant une limitation à la 
taille des constantes. On ne peut pas 
entrer plus de 250 caractères au cla- 
vier: de plus, après calcul. le nombre 
le plus grand ne peut avoir plus de 
508 chiffres. 


Les blancs étant non significatifs dans 
une ligne, on peut entrer des espaces 
entre les groupes de chiffres d’une 
constante, ce qui facilite l'écriture des 
très grands nombres. 


Si une <Constante> est utilisée de 
manière répétitive dans un calcul, il 
vaut mieux l'affecter à une <Varia- 
ble> et utiliser la <Variable>. Les 
calculs seront plus rapides. Le co- 
dage d'une constante est en effet 
assez lung. 


Instructions d’affichage 


Ces instructions permettent de visua- 
liser les résultats sur l'écran (ou sur 
l'imprimante, si l'on a fait préalable- 
ment PR#i avec l'imprimante sur le 
Slot i). 


<Affichage> ::= 
$ || @ || ?<Expression> 


?<Expression> affiche la valeur de 
l'expression. Le Calculateur passe à 
la ligne et écrit =” suivi de la va- 
leur. Si l'expression est une division, 
deux résultats sont donnés : le quo- 
tient puis le reste. 


Les nombres sont écrits avec un es- 
pace tous les quatre chiffres pour fa- 
ciliter la lecture. Un caractère CR 
(Carriage Return) est envoyé tous les 
79 caractères pour que les sorties sur 
imprimante soient formatées correc- 
tement. 


On peut afficher les valeurs de toutes 
les variables en service à un instant 
donné par @. Ceci écrit : 


AFFICHAGE DES VARIABLES AF- 
FECTEES : variables et valeurs, par 
ordre alphabétique 


L'affichage écran est rapide. On peut 
l'interrompre entre chaque variable 
en tapant sur la barre d’espacement: 
on le relance de la mème façon. 
CTRL-C permet d'arrêter l'affichage 
et de récupérer le prompt. 


On peut aussi afficher en hexadéci- 
mal l'adresse et la longueur de la 
zone mémoire à sauvegarder pour 
conserver les valeurs calculées et af- 
fectées aux variables en service. 


”$” donne l'adresse et la longueur 
de la zone mémoire à sauvegarder 
par un BSAVE. Le format est le sui- 
vant: ZONE A SAUVEGARDER 
Afxxxx,LEyyyuy 

où xxxx est l'adresse du début de la 
zone à sauvegarder et yyyy sa lon- 
geur, le tout en hexadécimal. 


Par exemple. pour sauvegarder les 
variables calculées sur la disquette 
sous le nom de fichier MES-CAL- 
CULS”", il faut faire : 


GBSAVE  MES-CALCULS.A$xxxx. 
L$yyyy "RETURN" 


La valeur de Afxxxx dépend de 
Padresse à laquelle le programme a 
été assemblé (on a normalement 
A$1700}). La valeur de L$yyyy est 
L$0070 à l'initialisation du système. 
Chaque variable affectée occupe 256 
octets supplémentaires ($100). On 
aura ainsi “L$0370” si 3 variables 
ont été affectées. 


Pour récupérer ultérieurement les va- 
leurs sur lesquelles on travaille, il suf- 
fira de faire : 


ZBLOAD MES-CALCULS  7RE- 
TURN” 
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Attention : le contenu de la mémoire 
avant le BLOAD est perdu. 


Les facteurs répétiteurs 


Une ligne normale est exécutée une 
seule fois. Si le <Dièse> est utilisé, 
on peut exécuter une <Ligne> ou 
une fin de ligne plusieurs fois. 


La constante qui précède le dièse 
(#) doit être un entier positif inférieur 
ou égal à 255. Ce nombre indique 
combien de fois il faut exécuter tout 
ce qui suit le dièse jusqu’à la fin de 
la ligne (jusqu'au RETURN"). 


Î peut y avoir plusieurs fois le <Diè- 
se> sur une même ligne. Chaque 
facteur répétiteur porte sur ce qui le 
suit jusqu'à la fin de la ligne. Le Cal- 
culateur nest pas programmable, 
mais le <Dièse> permet de faire 
assez facilement des calculs répétitifs 
(comptages, factorielles). 


S'il y a trop de facteurs répétiteurs 
sur une même ligne, il est possible 
que le programme soit mis en défaut 
par saturation de la pile. Il vaut donc 
mieux éviter d'utiliser plus de 15 fois 
le dièse dans la même ligne (la 
contrainte est raisonnable ..). 


La syntaxe impose que chaque dièse 
soit séparé du suivant par au moins 
une instruction {éventuellement 
vide). 11 y a donc au moins un deux- 
poinis entre chaque paire de dièses. 
Si l'on veut afficher 500 fois la valeur 
3. il faut taper la ligne suivante : 


% 10# : 50 # ?3 "RETURN" 
Voici quelques exemples : 


Le signe pour-cent ‘’%” au début de 
la ligne est le prompt. La suite est 
tapée par l'utilisateur jusqu'au "RE- 
TURN”. Les blancs sont non signifi- 
catifs (on peut ne pas en mettre). Le 
reste est affiché par le Calculateur : 


Le 2+3 "RETURN" 


=05 
% 3# ?2+3 "RETURN" 
=05 
=05 


=05 
% A=0 : 100# A=A+I 

b ? 
% A=0: F=1: 10# @: 10#A=A 
+1: F=AxF 
AFFICHAGE DES 
AFFECTEES : 

A=00 

F=01 

AFFICHAGE DES 
AFFECTÉES : 

A=10 

F=0362 880 
AFFICHAGE DES 
AFFECTEES : 

A=20 

F=0243 2902 6081 7664 0000 
AFFICHAGE DES VARIABLES 


VARIABLES 


VARIABLES 


VARIABLES 


Pom's n° 12 


AFFECTEES : 

A=30 

F=0265 2528 5981 2191 0586 3630 
8480 0000 00... 


Cet exemple calcule dans F la facto- 
telle de À. I y a deux boucles imbri- 
quées. La première affiche les variables 
affectées ("@” est exécuté HO fois), et 
exécute la seconde boucle. La seconde 
incrémente À et mulüplie À par F. Les 
résulte# ne sont donc affichés qu'une 
fois sur dix Le demier affichage est 
A=90 et F la valeur de factorielle 90 
(90!) On temmine alors les deux bou- 
cles par le calcul de factorielle 100 
(100), mais la valeur n'est pas affi- 
chée. Si l’on fait ”@”, on affichera 
A=100 et F=100! A titre d'informa- 
tion, le dépassement de capacité est 
obtenu pour la factorielle de 256 
(2561. 


Un autre exemple utile : 


% N= 1225313: K=3: 10#: 60# 
Q=N/K:R: X=Ll/R: K=K+2 ‘°RE- 
TURN” 

? DIVISION PAR ZERO 

% @ "RETURN" 

AFFICHAGE DES VARIABLES AF- 
FECTEES : 

K=0997 

N=0122 5313 

Q=1229 

R=00 

X=00 

GN=1229: K=3: 20# Q=N/KR: 
X=1/R: K=K+2 “RETURN” 

% @ “RETURN” 

AFFICHAGE DES VARIABLES AF- 


La première ligne permet de chercher 
si le nombre N=1225313 est premier. 
Pour cela, on le divise par tous les 
nombres impairs à partir de K=3 et 
ceci 600 fois (on arrive ainsi à la racine 
de N). I! faut donc ajouter 2 à K 600 
fois (10# :60 #). 


Le quotient est Q. le reste est R Si N 
n'est pas premier. le reste R prendra la 
valeur zéro à un certain moment. L'ins- 
truction {X=1/R) permet d'interrompre 
le calcul à cet instant (car il y a divison 
par zéro). 


Dans notre exemple. ceci se produit 
après 4 minutes de calcul. On affiche 
alors les variables, ce qui permet de 
voir que N=K«xQ. c'est-à-dire que 
1225313 = 997 « 1229 et n'est donc 
pas premier. 


On essaye de même de décomposer 
1229 en facteurs premiers Mais. cette 
fois, on reprend la main sans erreur. 
Le nombre 1229 est donc premier. 


Pour des grands nombres. le temps de 
calcul reste hélas prohibitif. 


Interruptions 


On sait déjà qu'il est possible de pro- 
grammer des arrêts (,), d'interrompre 
ou de reprendre l'affichage avec la 
barre d'espacemnent. On peut aussi 
arrêter les calculs par CTRL-C. Cette 
interruption est non destructive, car 
elle n’est pas prise en compte n'im- 
porte quand. Si l’on fait CTRL-C du- 
rant l'affichage, ie message d’inter- 
ruption apparaît à l'écran et on 
retoume au niveau de commande. 
La valeur des variables (à cet instant) 
n'est pas modifiée. 


Si lon fait CTRL-C au cours d’un 
calcul, on peut attendre l'interruption 
entre deux et une dizaine de secon- 
des. En effet, le CTRL-C n'est pris 
en compte que dans les divisions et 
les puissances, mais pas dans les 
multiplications. Dans le cas d’une af- 
fectation, si le calcul est interrompu, 
l'affectation n'a pas lieu et la valeur 
de la variable demeure inchangée. 


Si le CTRL-C intervient au cours 
d'un calcul avec facteur répétiteur, il 
est difficile de savoir si l'interruption 
a lieu au cours d'un calcul (s'il y a 
”/” ou ” ” dans le calcul), ou si l'in- 
terruption a lieu entre deux répéti- 
tions. Il faut alors regarder la valeur 
des compteurs que l’on a utilisés 
dans la boucle pour évaluer la posi- 
tion du point d'intemuption. 


Remarque : il n’est pas possible 
de reprendre un calcul interrompu. 
Soyez donc patients, car les temps 
de calcul sont parfois importants. 


Îl peut aussi se produire des interrup- 
tions accidentelles. Si lon tape la 
touche RESET, on se retrouve soit 
sous contrôle de l'Applesoft (ROM 
Autostart}, soit sous le contrôle du 
moniteur (ancienne ROM). 


Pour retourner dans le Calculateur 
sans perdre le travail en cours, il faut 
faire “&'” (à partir de l’Applesoft) ou 
CTRL-Y (à partir du moniteur). Si 
une erreur est faite dans une 
commande du DOS, on quitte aussi 
le Calculateur pour se retrouver sous 
contrôle du Basic. La procédure de 
retour est la même. 


Attention : si on fait RESET pen- 
dant l'affectation d'une variable, 
celle-ci sera incorrectement affectée: 
des erreurs pourront alors se pro- 
duire avec cette variable. Méfiez-vous 
par conséquent du RESET. 


Pour utiliser l'Applesoft et le Calcula- 
teur ensemble, il faut : 


- assembler le programme à l'adresse 
$66D0 (ORG $66D0 et OBJ &800) 
- après sauvegarde correcte du code 
binaire, faire BRUN 

FAIRE CALL 26320 apparaît à 
l'écran. Il faut alors faire : 
HIMEM:26320 : CALL 26320 
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Le Calculateur 
contre le Basic. 


est alors protégé 


Entrées-Sorties 


Si une imprimante est branchée sur 
le slot i, faire PR#i pour sortir les ré- 
sultats sur papier. La présentation à 
l'imprimante n'est pas identique à 
celle de l'écran. 


Certains CR ne sont transmis qu'à 
l'écran pour plus de lisibilité, mais les 
lignes ne sont pas sautées sur l'impri- 
mante. De plus. les très grands nom- 
bres sont présentés par lignes de 80 
caractères sur l'imprimante. 


Si les sorties se font sur papier, on 
ne voit rien à l'écran Mais si votre 
interface d'imprimante permet de 
conserver l'image écran grâce à un 
caractère de contrôle, vous pouvez 
entrer ce caractère (sans tenir compte 
de lerreur de syntaxe qu'il provo- 
quera). Tout doit fonctionner norma- 
lement. 


Exemples 


Voici Le résultat d'une séquence de 
travail normale. Ce qui suit le signe 
pour-cent ‘’%” est tapé au clavier par 
l'utlisateur, suivi de "RETURN": le 
reste est affiché par le Calculateur 
Entier. 


H?12345+123 

=0124 68 

R$ 

ZONE A SAUVEGARDER A$182C, 
L$0070 

RA=—123456789. $ : @: B — 
À + A: @ 

ZONE A SAUVEGARDER A$1700. 
L$0170 
AFFICHAGE 
AFFECTEES . 
= —-0123 4567 89 


DES VARIABLES 


Calculateur Entier 
Code objet 


*840.1840 


0840- AS 4C 8D FS 03 8D F8 03 
0848- A9 SE 8D F6 03 8D F3 03 
0850- A9 09 8D F7 03 8D FA 03 
0858- 20 58 FC 20 8C 17 C6 C1 
0860- C9 D2 CS 8A AO C3 C1 CC 
0868- CC AO 87 00 A2 40 A9 O8 
0870- 20 24 ED 20 8E FD 20 8E 


AS 
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AFFICHAGE 
AFFECTEES : 


A= —0123 4567 89 
B= —0246 9135 78 
9?63/5 : ?—12»12: 22 100 :?C 


DES VARIABLES 


=0126 7650 6002 2822 9401 4967 
0320 5376 


? VARIABLE 'C' NON AFFECTEE 
ZA= A+ —-D 

? PRIMAIRE INCORRECT 
%A=3/0 

? DIVISION PAR ZERO 
PA=5/3:A : ?A : ?-3/A 

=02 

? OPERANDE NEGATIF 


% A=0 : 20# : 20# A=A+]1 
% ?A 


= 6400 
%.. etc... etc. 


Résumé des règles syn- 
taxiques 


<Ligne> ::= 
<Commande>"RETURN” | 
<Commande DOS> "RETURN" 
<Commande> ::= 
{ <Dièse>} <Instruction> || 
<Commande> : { <Dièse> } 
<lInstruction> 
<Dièse> ::= 
<Constante># 
<instruction> ::= 
& |. |” || <Affectation> || 
<Affichage> || <Rien> 
<Affichage > .:= 
$ || @| ?<Expression> 
<Affectation> ::= 
<Variable>=<Expression> 
{;<Variable> } 
<Expression> ::= 
{-} <Primaire> {[(-} <Primaire> 
<Opérateur><Primaire> 


<Primaire> ::= 
<Variable> |<Constante> 

<Variable> ::=<Lettre> 

<Constante> ::=<Chiffre>|| 


<Constante><Chiffre> 


0878- FD AS 4C 8D 40 O8 A9 8B 
0880- 8D 41 08 A9 08 8D 42 08 
0888- 4C D3 03 20 58 FC 20 9B 
0890- 17 AO AD AD AD AD AD AD 
08938- AD AD AD AD AD AD AD AD 
O8AO0- AD AD AD AD 8D AO C3 C1 
O8A8- CC C3 DS CC C1 D4 CS DS 
O8BO- D2 AO CS CE D4 C9 CS D2 
O8B8- 8D AO AD AD AD AD AD AD 
O8CO- AD AD AD AD AD AD AD AD 
O8C8- AD AC AD AD 8D AO AO AO 
O8D0- AO AO AO AO D6 CS D2 D3 
O8D8- C9 CF CE AO AO B1 AE B2 


<Opérateur> :=. 
+|l— {+ {/1 4" 
<Lettre> ::= 
A!B!C'DIE'FIG'HIIKILIMINIO! 
PIQIRISITIUIVIWIXIYIZ 
<Chiffre> ::= 0!11213141516171819 
<Rien> ::= 


Les messages d'erreur 


? ERREUR DE SYNTAXE 


? INTERRUPTION DE L'UTILISA- 
TEUR 
L'utilisateur a fait CTRL-C. 


? FACTEUR REPETITEUR INCOR- 
RECT 
Facteur > 255, ou il manque #. 


? DIVISION PAR ZERO 


? OPERANDE NEGATIF 
Les opérandes d'une division doivent 
être positifs. 


? RESULTAT TROP GRAND 
Le résultat du calcul a plus de 508 
chiffres. 


? EXPOSANT NEGATIF 
Pour une puissance. l'exposant doit 
être positif. 


? AFFECTATION INCORRECTE 
1 peut manquer le signe (=). 


? PRIMAIRE INCORRECT 


? VARIABLE ’x NON AFFECTEE 
La variable dont le nom est {x} n'est 
pas en service. 


? EXPRESSION INCORRECTE 
? MAUVAIS OPERATEUR 


NDLR : le Calculateur est très utile 
pour lire le livre passionnant de Fran- 
çois Le Lionnais ‘Les nombres re- 
marquables”, chez Herman. Encore 
une fois, Pom's vous offre un pro- 
gramme qui, à lui seul, se vendrait 
plus cher que l'abonnement d'un an 
avec disquettes. Nous n'avons pas 
publié le programme source, car il y 
en aurait pour 15 pages en deux co- 
lonnes .… Le source. ainsi que la ré- 
capitulation, se trouve comme d'ha- 
bitude sur la disquette d'accom- 
pagnement du numéro. Les droits de 
l'auteur seront bien entendu établis 
sur la base de la longueur totale de 
l’article, incluant ces 15 pages non 
publiées 

= 


O8E0- 8D AO AO AO AO AO AO AO 
O8E8- AD AD AD AD AD AD AD AD 
08F0- AD AD AD AD 8D AO AO AO 
08F8- AO AO AO AO DO C1 D2 AO 
0900- AO CA AE AO C4 DS CD C1 
0308- 8D AO AO AO AO AO AO AO 
0910- AD AD AD AD AD AD AD AD 
0918- AD AD AD AD 8D AO AO AO 
0920- AO AO AO AO BC BO B6 AE 
0928- 80 B1 AE B1 B9 B8 B4 BE 
0930- 8D AO AO AO AO AO AO AO 
0338+ AD AD AD AD AD AD AD AD 
0940- AD AD AD AD 8D 8D OO A2 


Pomsn 12 


OBC8- 
OBDO- 
OBD8- 
OBEO- 
OBE8- 
OBFO- 
OBF8- 
OCO0- 
OCO8- 
OC10- 
OC18- 
ŸC20- 
OC28- 
OC30- 
0C38- 
0C40- 
OC48- 
OCS50- 
OCS8- 
OC$0- 
OC68- 
OoC70- 
OC78- 
OC80- 
OC88- 
OC930- 
0C938- 
OCAO- 
OCA8- 
ÔOCBO- 
OCB8- 
OCCO- 
OCC8- 
OCDO- 
OCD8- 
OCEO- 
OCE8- 
OCFO- 
OCF8- 
ODOO- 
ODO8- 
OD10- 
OD18- 
OD20- 
OD28- 
0D30- 
OD38- 
OD40- 
OD48- 
ODS50- 
OD58- 
OD60- 
OD68- 
O0D70- 
OD78- 
OD80- 
OD88- 
0D90- 
0D38- 
ODAO- 
ODA8- 
ODBO- 
ODB8- 
ODCO- 
ODC8- 
ODDO- 
ODD8- 
ODEO- 
ODE8- 
ODFO- 
ODF8- 
OEOO- 
OEO8- 
OE10- 
OE18- 
OE20- 
OE2B- 
OE30- 
0E38- 
OE40- 


co 
EE 
29 
DO 
FD 
20 
A9 
10 
20 
OC 
25 
AA 
ED 
FE 
88 
ES 
AO 
20 
Di 

F9 
SA 
OB 
OB 
EF 
11 

C9 
16 
O4 
DO 
BO 
20 
ac 
OA 
20 
OD 
2C 
AD 
18 
2C 
AD 
18 
03 
ce 
C9 
AS 
8D 
18 
18 
23 
A9 
EE 
18 
2B 
EE 
13 
D1 
15 
FF 
OA 
DO 
O1 
02 
03 
04 
O5 
06 
18 
C9 
20 
DF 
03 
OA 
ac 
c3 
2E 
AD 
OE 
ac 
15 
04 
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15C8- 60 EE D2 15 DO 03 EE 
15D0- 15 AD FF FF CS AO FO 
15D8- C9 8D FO O2 C3 BA 60 
10E0- 14 18 C9 OS FO 03 4C 27 1360- A2 FF 3E FF FF CA DO FA 15F0- D1 15 C9 80 BO O1 60 
10E8- 11 AD 19 18 OD 18 18 FO 1368- 88 DO F4 CE 1D 18 AE 1D 15E8- BA 90 02 18 60 38 60 
10FO0-+ 2F 18 6E 19 18 6E 18 18 1370- 18 4C 3D 13 AO O4 18 A2 1S5FO0- D1 15 CS C1 BO O1 60 
10F8- 90 14 20 BE 14 20 97 14 1378- FF 3E FF FF CA DO FA 88 15F8- DB 90 02 18 60 38 60 
1100- 20 D8 OE 20 OC 15 AD 19 1380- DO F4 CE 25 18 AE 25 18 1600- 8C 17 8D BF AO C3 D2 
1108- 18 OD 18 18 FO 12 20 97 1388- 8D FF FF C9 OO DO 03 EE 1608- CS DS D2 AO Ca C5 AO 
1110- 14 20 49 14 20 D8 OE 20 1390- 25 18 E8 DO F3 CE 25 18 1610- DS CE D4 C1 D8 C5 8D 
1118- ES 14 20 B7 15 4C E9 10 1398- 60 F8 18 A2 FF BD FF FF 1618- O0 4C C3 09 20 8C 17 
1120- 20 BE 14 20 70 14 60 AD 13A0- 69 O1 SD FF FF CA BD FF 1620- 8F AO C9 CE D4 C5 D2 
1128- 2C 18 8D 1A 18 20 493 14 13A8- FF 6% OO SD FF FF CA DO 1628- DS DO D4 C9 CF CE AO 
1130- 20 BS 13 20 D4 13 20 70 1380- FS D8 4C 82 13 AD 2E 18 1630- CS AO CC A7 DS Da C3 
1138- 14 20 49 14 A9 00 18 6E 1388- 8D C6 13 AD 2F 18 8D C7 1838- C9 D3 Ci D4 C5 DS D2 
1140- 19 18 6E 18 18 SO O2 A9 13C0- 13 A2 O0 A9 OO 9D FF FF 1640- 8D 00 4C C9 09 20 8c 
1148- FF 48 AD 19 18 FO O3 4C 13C8- E8 DO FA 8D 2C 18 AS FF 1648- 8D BF AO C6 C1 C3 Da 
1150- A6 16 AD 1A 18 FO 4E 18 13D0- 8D 2D 18 60 AD ?E 18 8D 1650- D5 D2 AO D2 C5 DO CS 
1158- AD 2D 18 6D 18 18 90 O4 13D8- 91 15 AD 2F 18 8D 92 15 1658- C9 D4 CS DS D2 AO CS 
1160- 68 4C BS 13 A8 8D 21 18 13E0- AD 1E 18 8D 94 15 AD 1F 1660- C3 CF D2 D2 CS C3 Da 
1168- AE 2D 18 AD 2E 18 8D 8A 13E8- 18 8D 95 15 AD 2C 18 8D 1668- 8D 00 4C CS 09 20 8C 
1170- 11 AD 2F 18 8D 8B 11 AD 13F0- 1C 18 AD 2D 18 8D 1D 18 1670- 8D 8F AO CF DO CS D2 
1178- 22 18 8D 8D 11 8D 19 13 13F8- 4C 8E 15 AD 2E 18 8D 91 1678- CE C4 C3 AO CE CS C7 
1180- AD 23 18 8D 8E 11 8D 1A 1400- 15 AD 2F 18 8D 92 15 AD 1680- D4 C9 C6 8D 8D 00 4C 
1188- 13 BD FF FF 99 FF FF E8 1408- 22 18 8D 94 15 AD 23 18 1688- 09 20 8C 17 8D BF AO 
1190- C8 DO F6 AD 2C 18 8D 20 1410- 8D 9S 15 AD 2C 18 8D 20 1690- C9 D6 CS D3 C9 CF CE 
1198- 18 68 FO 03 20 12 13 20 1418- 18 AD 2D 18 8D 21 18 4C 1698- DO C1 D2 AO DA C5 D2 
1140- 70 14 4C 62 OE 38 AD 2D 1420- 8E 15 AD 1E 18 8D 91 15 16A0- 8D 8D O0 4C C9 09 20 
11A8- 18 ED 18 18 BO O3 4C 46 1428- AD 1F 18 8D 92 15 AD 2E 1648- 17 8D BF AO D2 CS D3 
11B0- 16 A8 8D 1D 18 AE 2D 18 1430- 18 8D 94 15 AD 2F 18 8D 16B0- CC D4 C1 D4 AO Da D2 
11B8- AD 2E 18 8D D7 11 AD 2F 1438- 95 15 AD 1C 18 8D 2C 18 16B8- DO AO C7 D2 C1 CE Ca 
11C0- 18 8D D8 11 AD 1E 18 8D 1440- AD 1D 18 8D 2D 18 4C 8E 16C0- 8D 00 4C C9 09 20 8C 
11C8- DA 11 8D 54 13 AD 1F 18 1448- 15 AD 1E 18 8D 91 15 AD 16C8- 8D BF AO CS D8 DO CF 
11D0- 8D DB 11 8D 55 13 BD FF 1450- 1F 18 8D 92 15 AD 22 18 16D0- C1 CE D4 AO CE CS C7 
11D8- FF 993 FF FF C8 E8 DO F6 1458- 8D 94 15 AD 23 18 8D 35 16D8- D4 C9 C6 8D 8D 00 ac 
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11E0- AD 2C 18 8D 1C 18 68 FO 1460- 15 AD 1C 18 8D 20 18 AD 16E0- 09 20 8C 17 8D BF AO 
11E8- 10 AD 1D 18 CS O2 BO 03 1468- 1D 18 8D 21 18 4C 8E 15 16E8- C6 C6 CS C3 D4 Ci D4 
11FO0- 4C A6 16 CE 1D 18 20 4E 1470+ AD 22 18 8D 91 15 AD 23 16F0- CF CE AO CS CE C3 CF 
11F8- 13 20 22 14 4C 62 OE 18 1478- 18 8D 32 15 AD 2E 18 8D 16F8- D2 C5 C3 D4 C5 8D 8D 
1200- 2E 16 18 2E 17 18 60 18 1480- 94 15 AD 2F 18 8D 935 15 1700- 4C C3 09 20 8C 17 8D 
1208- AD 16 18 6D 18 18 8D 18 1488- AD 20 18 8D 2C 18 AD 21 1708-+ AO DO D2 C9 CD C1 C9 


1210- 18 AD 17 18 6D 19 18 8D 1490- 18 8D 2D 18 4C 8E 15 AD 1710- CS AO CS CE C3 CF D2 
1218- 19 18 60 AD 1D 18 CD 21 1498- 26 18 8D 91 15 AD 27 18 1718-+ CS C3 Dé 8D 8D 00 ac 
1220- 18 FO O6 BO 02 38 60 18 14A0- 8D S2 15 AD 1E 18 8D 34 1720- 09 48 20 8C 17 8D 8F 
1228- 60 AD 1E 18 8D 45 12 AD 14A8- 15 AD 1F 18 8D 95 15 AD 1728- D6 C1 D2 C9 C1 C2 CC 
1230- 1F 18 8D 46 12 AD 22 18 1480- 24 18 8D 1C 18 AD 25 18 1730- AO A7 00 68 20 ED FD 


1238- 8D 48 12 AD 23 18 8D 49 14B8- 8D 1D 18 4C 8E 15 AD 2A 1738- 8C 17 A7 AO CE CF CE 
1240- 12 AE 1D 18 BD FF FF DD 14C0- 18 8D 3i 15 AD 2B 18 8D 1740- C1 C6 C6 CS C3 Da CS 
1248- FF FF DO 03 E8 DO F5 60 14C8- 92 15 AD 22 18 8D 94 15 1748- 8D 8D OO 4C C9 093 20 


1250- AD 1E 18 8D 76 12 AD 1F 14D0- AD 23 18 8D 9S 15 AD 28 1750- 17 8D BF AO CS D8 DO 
1258- 18 8D 77 12 AD 2E 18 8D 14D8- 18 8D 20 18 AD 29 18 8D 1758- CS D3 D3 C9 CF CE AO 
1260- 79 12 8D 73 12 AD 2F 18 14E0- 21 18 4C 8E 15 AD 2E 18 1760- CE C3 CF D2 D2 CS C3 
1268- 8D 7A 12 8D 74 12 A2 FF 14E8- 8D 91 15 AD 2F 18 8D 92 1768- C5 8D 8D 00 4C C9 03 
1270- F8 18 BD FF FF 7D FF FF 14F0- 15 AD 26 18 8D 34 15 AD 1770- 8C 17 8D BF AO CD C1 
1278- SD FF FF CA DO F4 D8 AD 14F8- 27 18 8D 95 15 AD 2C 18 1778- D6 C1 C9 D3 AO CF DO 
1280- 1D 18 CD 2D 18 SO O3 AD 1500- 8D 24 18 AD 2D 18 8D 25 1780- D2 C1 D4 CS DS D2 8D 
1288- 2D 18 8D 2D 18 CE 2D 18 1508- 18 4C 8E 15 AD 2E 18 8D 1788- O0 4C C3 09 20 AA 17 
1290- FO O3 4C 62 OE 4C A6 16 1510- 91 15 AD 2F 18 8D 92 15 1790- B1 17 20 BF 17 20 DF 
1298- AD 1E 18 8D BE 12 AD 1F 1518- AD 2A 18 8D 94 15 AD 2B 1798- 4C EB 17 20 AA 17 20 
12A0- 18 8D BF 12 AD 2E 18 8D 1520- 18 8D 9S 15 AD 2C 18 8D 17A0- 17 20 CF 17 20 DF 17 
12A8- C1 12 8D 88 12 AD 2F 18 1528- 28 18 AD 2D 18 8D 29 18 17A8- EB 17 85 1B 86 1C 84 
12B0- 8D C2 12 8D BC 12 A2 FF 1530- 4C 8E 15 29 1F OA OA AA 1780- 60 8A 8D 03 01 85 193 
12B8- F8 38 BD FF FF FD FF FFE 1538- 8D 2E 18 8D 91 15 8D 2F 17B8- 04 01 85 1A 4C F2 17 
12CO0- 9D FF FF CA DO F4 D8 4C 1540- 18 8D 92 15 AD 2E 18 8D 17C0- OO B1 19 FO OS 20 ED 
12C8- 62 OE AD 1E 18 8D FC 12 1548- 94 15 AD 2F 18 8D 95 15 17C8- 20 F2 17 4C C1 17 60 
12D0- AD 1F 18 8D FD 12 AD 2E 1550- BD 2C 18 8D 2C 18 BD 2D 17D0- OO 81 19 FO O9 20 FO 
12D8- 18 8D FF 12 8D F9 12 AD 1558- 18 8D 2D 18 4C 8E 15 AD 17D8- 20 F2 17 4C D1 17 60 
12E0- 2F 18 8D OO 13 8D FA 12 1560- 11 18 2S 1F OA OA AA AD 17E0- AS 19 SD O3 O1 AS 1A 
12E8- AD 22 18 8D O2 13 AD 23 1568- 2E 18 8D 91 15 AD 2F 18 17E8- O4 O1 60 AS 1B A6 1C 
12FO0- 18 8D 03 13 A2 FF F8 38 1570- 8D 92 15 BD 2E 18 8D S4 17F0- 1D 60 E6 19 DO O2 E6 
12F8- BD FF FF FD FF FF 9D FF 1578- 15 BD 2F 18 8D 95 15 AD 17F8- 60 A9 8D 4C FO FD 46 
1300- FF SD FF FF CA DO F1 D8 1580- 2C 18 9D 2C 18 AD 2D 18 1800- CO BF AC A2 D8 OA 42 
1308- 20 62 OE AD 2D 18 8D 21 1588- 9D 2D 18 AC 8E 15 A2 O0 1808- 8A OB 54 OC 20 OB Ca 
1310- 18 60 AO O4 18 AE 21 18 1590- BD FF FF 9D FF FF E8 DO 1810- 17 4C C7 17 60 AO 00 
1318- 7E FF FF E8 DO FA 6A 88 1598- F7 60 20 B7 15 48 AD O0 1818- 19 FO OS 20 FO FD 20 
1320- DO F2 4A 4A 4A 4A 8D 15 15A0- CO 10 12 C9 AO DO OE 8D 1820- 17 4C D7 17 60 BA AS 
1328- 18 60 AO O4 18 AE 1D 18 1548- 10 CO AD OO CO 10 FB 20 1828- SD 03 O1 AS 1A 9D O4 
1330- 7E FF FF E8 DO FA 6A 88 15B0- B7 15 8D 10 CO 68 60 48 1830- 60 AS 18 A6 1C A4 1D 
1338- DO F2 AE 1D 18 BD FF FF 15B8- AD OO CO 10 OA CS 83 DO 1838- E6 19 DO 02 E6 1A 60 
1340- C9 CO DO 09 EE 1D 18 E8 15C0- 06 8D 10 CO 4C 1C 16 68 1840- O0 
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EXP(PIxSQR(163)) est-il entier ? 


Le problème 


il y à quelques années. la revue 
Sciences & Vie annonçait dans ses 
récréations mathématiques que 
EXP(PIxkSQR(163)) était entier et va- 
lait 262537.412640768744, en 
avançant que des calculs poussés sur 
ordinateur n'avaient donné que des 
chiffres 9 dans les 2 millions de pre- 
mières décimales. La revue parlait 
même d’une démonstration basée 
sur le nombre d’Euler (nombre irra- 
tionnel, comme PI ete). 


Calcul sur TI 58 


Je voulais en avoir le coeur net. 
Aussi, en 1979, j'attaquai le pro- 
blème muni de ma calculatrice TI 58. 
J'ufilisai pour cela un programme de 
multiplication de nombres de 50 chif- 
fres. Comme toutes les autres opéra- 
tions étaient manuelles à cause de la 
faible capacité de la calculatrice, j'uti- 
lisai de nombreuses astuces pour cal- 
culer là racine carrée et l'exponen- 
tielle. Après un après-midi de calcul 
(et un autre pour vérification), j'ob- 
tins un résultat à 50 chiffres (donc 31 
décimales. dont au moins 25 de- 
vaient être bonnes en tenant compte 
des erreurs d'arondi). Qu’obtins-je ? 


Calcul en Basic 


En 1981, muni d’un Apple, je déci- 
dai de confirmer ce résultat avec un 
programme Applesoft (joint sur la 
disquette d'accompagnement de ce 
numéro, afin que les lecteurs intéres- 
sés puissent “l'éplucher”). Ce pro- 
gramme utilise des tableaux pour sto- 
cker, par tranches de 4 chiffres, des 
grands nombres. De plus. il possède 
des routines pour faire des multiplica- 
tions et additions de grands nombres 
ou des divisions de grands nombres 
par une constante d'au plus 4 chif- 
fres. Là, les résultats sont obtenus 
bien plus rapidement (14 mn pour 
80 chiffres, 5 mn avec un pro- 
gramme compilé). 


Le Calculateur Entier 


Enfin, tel Zorro, arrive le Calculateur 
Entier de Jacques Duma, muni de la 
division de grands nombres; je vais 
montrer dans les lignes qui suivent à 
quel point il devient alors facile de 
programmer ce calcul. 


NDLR : Olivier Herz a rédigé son ar- 
ticle à partir de la version 1.0 du cal- 
culateur. La lecture de cet article a 
amené Jacques Duma à réaliser et à 
nous envoyer la version 1.2, publiée 
dans ce numéro Cette version a 
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ajouté la pause entre deux instruc- 
tions {,), l'introduction des remarques 
(”) et surtout la multiplication par 
une puissance de 10 (’)]. Ainsi, le 
programme adapté à cette version 
calcule-t-il le résultat en cinq minutes 
de moins que EXPEXEC ! 

Nous avons décidé de ne pas modi- 
fier le texte original d'Olivier pour lui 
garder sa virginité initiale (au texte, 
bien sûr). Le lecteur relativisera donc 
certaines remarques et pourra d’au- 
tant mieux apprécier la qualité des 
analyses d'Olivier et l'utilité de ses 
observations. 


1 - Comme on travaille uniquement 
sur des nombres entiers, il va falloir 
utiliser une constante multiplicative 
pour transformer des nombres déci- 
maux en nombres entiers. Soit par 
exemple, pour des calculs sur 100 
décimales (on pourrait aller presque 
jusqu’à 254=508/2 décimales) : 
K=19 100 

Bien entendu, K n’est pas nécessaire- 
ment une puissance de 10. Voir à ce 
sujet la remarque (2). 


2 - Pour calculer la racine carrée de 
163, on utilise la méthode de New- 
ton, par approximations successives 
avec la formule UÉ45 = 
(U,+163/U,) / 2, en prenant 13 
comme approximation de départ. 
Soit : 

R=K*K: R=163*R: U=13*kK: 
7# : X=R/U : U=X+U : U=U/2 

7 itérations suffisent pour avoir 100 
bonnes décimales. 


3 - PF est supposé connu (le Palais 
de la Découverte publie 2000 déci- 
males sur une caïte postale). Et l’on 
calcule PIx*SQR(163) : 

R=3 14159 26535 89793 23846 
26433 83279 50288 41971 69399 
37510 58209 74944 59230 78164 
06286 20899 86280 34825 34211 
706794 : R=R'/K 


4 - On obtient 40.109. et l’on va 
calculer EXP(40109..) = EXP(40) * 
EXP(0.109..) On ne garde donc 
que la partie décimale du résultat . 

X = 40*K:R = R-X 


5 - On calcule son exponentielle par 
développement limité avec la formule 
EXP(X) = 1 + X + X 2/2 + 
X nnl=somme des U,, avec Us=1 
et U, = U,,-ixX/n: 

S=K: i=0: U=K: 45#: I=I+1: 
U=Ux%R : U=U/K : U=U/I : S=S+U 
On calcule suffisamment de termes 
(ici 45) pour que U, soit négligeable. 


6 - On calcule de la même façon, 
avec ici X=i : 


Olivier Herz 


E=K: I=0: U=K: 70#: I=I+1: 
U=U/I : E=E+U 


7 - I ne reste plus qu’à calculer et 
foumir le résultat (avec 100 décima- 
les, dont peut-être 80 à 90 de signifi- 
catives) : 

S=S+E : S=S/K 

?S 


Que pensez-vous du résultat ? Scien- 
ces & Vie n'avait-il pas publié son ar- 
ticle dans le numéro d'avril ? 


Remarques 


(1) Tous ces résultats peuvent être 
obtenus automatiquement grâce au 
fichier EXP.EXEC. Il suffit de se met- 
tre dans le calculateur et d'EXECuter 
ce fichier pour ce faire, on obtient le 
résultat (ici 100 chiffres) en un peu 
plus de 20 minutes. Faire MON 
C,LO au préalable si l’on veut voir 
l'avancement des calculs. 


On peut en effet utiliser de véritables 
programmes pour ce calculateur 
grâce aux fichiers EXEC. Utilisez Ap- 
plewriter I] ou reportez-vous au nu- 
méro 3 de Pom's (p. 55) ou au re- 
cueil (p. 142) pour fabriquer de tels 
fichiers. 


(2} Au vu de ces calculs, il semble 
qu'on puisse émettre un regret pour 
le calculateur. On aurait gagné beau- 
coup de temps dans les calculs pour 
nombres non entiers si l’on avait eu 
une opération donnant, à partir d’un 
grand nombre N et d’un entier (posi- 
tif ou négatif) K de 3 chiffres au plus, 
le résultat Nx(10 K). Les nombres 
étant codés en BCD, ce calcul aurait 
été ultra-rapide. 


(3) Bien entendu, en utilisant des as- 
tuces, on peut aller bien plus vite. 
Mais la méthode utilisée présente 
l'avantage d’être la plus simple. 
Liste de EXP.EXEC 

K=10 100 

R=K*RK: R=163*R: U=13%K: 
7# : X=R/U : U=X+U : U=U/2 
R=3 14159 26535 89793 23846 
26433 83279 50288 41971 69399 
37510 58209 74944 59230 78164 


06286 20899 86280 34825 34211 
70679xU : R=R/K 

X = 4%K:R=R-X 

S=K: I=0: U=K: 45#: I=I+1: 
U=Ux%R : U=U/K : U=U/A : S=S+U 
E=K: I=0: U=K: 70#: I=I+1: 
U=U'î : E=E+U 

40# : S=SxE : S=S/K 


9 
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Analyse de Magic Mailer 


Guy Lapautre 


Présentation du produit 


Magic Mailer (Autocourrier pour la 
version française) est un logiciel 
complémentaire à Magic Window 
(Autotexte), distribué par ARTSCI 
Inc. et diffusé en France par Ordina- 
teur Express. Nous emploierons dans 
la suite les noms français. 


La version que nous avons testée est 
théoriquement adaptée à l'Apple _e. 
mais pas plus que la version 2 d'Au- 
totexte: elle n'utilise pas les possibili- 
tés nouvelles du clavier. C'est d'ail- 
leurs moins ennuyeux que pour 
Autotexte, car les mouvements de 
curseur sont beaucoup moins fré- 
quents. C'est pourtant dommage... 


Ïl convient de remarquer qu'Auto- 
courrier est exclusivement destiné à 
l'impression et ne permet de créer 
aucun texte ni fichier. L'utilisateur est 
censé utiliser Autotexte pour créer les 
textes proprement dits et les fichiers 
(bien qu'il soit possible. dans certai- 
nes conditions. d'utiliser des fichiers 
exogènes. en créant un moniteur‘). 


La présentation sous reliure est cor- 
recte. sans avoir le raffinement de 
nombreux logiciels pour Apple. La 
documentation est rédigée en an- 
glais. Une traduction en français est 
également fournie {avec quelques 
adaptations). Les auteurs préviennent 
quil s'agit d'une version provisoire. 
Nous y avons effectivement trouvé 
un certain nombre d'erreurs ou im- 
propriétés. Telle qu'elle est. elle a le 
mérite d'exister. 


Fonctionnalités de base 


Autocourrier est avant tout un 
adresseur automatique”. Il permet 
d'adresser commodément des lettres- 
type à toutes les personnes enregis- 
trées dans un fichier, ou à une sélec- 
tion d'entre elles. La sélection, s'il y 
à lieu, se fait à partir du contenu de 
certains champs. avec une très large 
combinaison de conditions logiques. 


Allant un peu plus loin. il est possible 
de faire figurer conditionnellement 
des mots. membres de phrases ou 
paragraphes permettant de personna- 
liser les lettres. 


Les données éditables sont de 4 

types : 

e des textes figurant dans la “lettre” 
créée sous Autotexte: 

e des données figurant dans le fi- 
chier associé: 

e des ‘constantes”. 
une date. 
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en particulier 


e des données entrées au clavier au 
fur et à mesure de l'impression. 


En revanche. Autocourrier ne 
comporte strictement aucune possibi- 
lité de calcul. ce qui interdit son em- 
ploi pour des opérations. même très 
simples. du type facturation ou édi- 
tion de devis... 


Le document à éditer 


Créé sous Autotexte. il se présente 
comme un document normal dans 
lequel on aurait opéré un certain 
nombre d'aménagements. 


Des zones sont réservées aux don- 
nées issues du fichier: elles sont repé- 
rées par des identifieurs que l'on re- 
trouve dans le moniteur’ du fichier. 
Ces identifieurs permettent en outre 
de sélectionner l'édition de portions 
de texte selon le contenu des 
champs du fichier associé, de jouer 
avec les majuscules et minuscules... 


Des symboles de justification peuvent 
étre introduits dans le texte. si des 
zones de longueurs variables font 
que la justification systématique faite 
sous Autotexte ne puisse pas tou- 
jours convenir. 


Des symboles spéciaux peuvent être 
utilisés. par exemple pour les ensem- 
bles titre/nom/prénoms. ou la date. 


Ces options sont certes intéressantes. 
mais on aboutit assez vite à un texte 
ésotérique si on veut aller loin dans 
les possibilités du logiciel. 


Le fichier associé 


Qu'il soit créé sous Autotexte ou 
adapté à partir d'un fichier exogène. 
ce fichier comporte un premier enre- 
gistrement vide. qui indique sa struc- 
ture (en rappelant que les identifieurs 
utilisés sont ceux qu'on retrouve 
dans le texte). 


Bien entendu. rien n'interdit d'avoir 
un fichier comportant des rubriques 
non utilisées dans un texte. mais qui 
pourront l'être dans un autre {au 
même titre que le texte peut contenir 
des identifieurs non présents dans le 
fichier, et qui correspondront à des 
données à entrer au clavierl. 


Le fichier, considéré comme un véri- 
table texte par Autocourrier, est par 
définition logé en mémoire centrale 
avec le texte lui-méme. il ne saurait 
donc être volumineux ! Cette limita- 
tion en rend l'emploi difficile pour de 
grosses applications professionnelles. 
| existe toutefois un palliatif, avec 
l'utilisation d’une forme de chaînage. 





Signalons par ailleurs qu'on peut fort 
bien travailler sans fichier, en rentrant 
au clavier les données pour lesquel- 
les des identifieurs ont été placés 
dans le texte. ce qui est une solution 
séduisante pour des applications de 
petit volume. en permettant une per- 
sonnalisation de lettres à peu de 
frais, au niveau d'applications ‘’per- 
sonnelles/professionnelles” 


Utilisations 


Deux options de base amènent à 
quatre modes d'exploitation : 


® en continu ou cas par cas: 
e tout je fichier ou une sélection 


Dans la pratique. deux d'entre elles 
sont particulièrement utiles : 


e en continu avec sélection (si on 
peut exprimer la sélection sous 
forme de critères logiques): 

e cas par cas et tout le fichier (per- 
mettant une sélection à l'examen 
de chaque enregistrement). 


Voilà un des points forts d Autocour- 
rier. d'autant plus que les possibilités 
de sélection logique sont très éten- 
dues et. comme le disent d'ailleurs 
les auteurs de la documentation. 
“plus simples à mettre en oeuvre 
qu'à expliquer” (un effort pourrait 
cependant étre fait pour clarifier les 
explications...) 


En résumé 


Autocourrier est un honnête système 
d'adressage automatique. dont deux 
poin& forts sont les larges possibilités 
de sélection de rubriques etou de 
paragraphes. et un système très 
complet de sélection dans le fichier 
associé. 


On regrettera principalement un cer- 
tain ésotérisme des textes si on utilise 
beaucoup d'options. ainsi que l'ab- 
sence complète de fonctions de cal- 
cul. Enfin, comme dans le cas d'Au- 
tocourrier, il est dommage que les 
auteurs n'aient pas pris en compte 
les possibilités accrues offertes par le 
clavier de l'Apple /’e. [ 
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Puisque nous n'avons pas été sub- 
mergés par un courrier nous intimant 
l'ordre de mettre fin sur le champ à 
cette série. nous là poursuivrons sans 
plus attendre par l'examen de nou- 
velles instructions choisies dans le ré- 
pertoire du langage assembleur. 


Les instructions de 
comparaison 


Elles jouent en assembleur le même 
rôle fondamental qu'en Basic. en 
permettant d'orienter le programme 
vers différents traitements selon le ré- 
sultat de tests effectués sur des varia- 
bles caractéristiques. 

On ne peut toutefois comparer direc- 
tement deux variables quelconques. 
par exemple le contenu de l'adresse 
$32 avec celui de l'adresse $303, ni 
une variable quelconque à une va- 
leur donnée, par exemple le contenu 
de l'adresse $18 et la valeur #$A0. 


En fait, la comparaison "stricto 
sensu” nest possible qu'entre l’un 
des registres du microprocesseur (ac- 
cumulateur. registre X ou registre Y) 
et ‘autre chose’ {variable ou cons- 
tante). 

Il faut cependant noter que certaines 
instructions agissant sur une case-mé- 
moire. sans lien direct avec une véti- 
table comparaison, peuvent donner 
lieu à des tests significatifs par le biais 
de ce que nous avions appelé ‘le 
dernier résultat”. dans l’article précé- 
dent. lors de l'examen des instruc- 
tions BE@ et BNE. Nous en trouve- 
rons d'ailleurs un exemple plus loin. 


L'assembleur se distingue en outre 
du Basic en ce que l'opératon de 
comparaison est réalisée séparément 
du test effectué sur son résultat. 
Ainsi. alors que l’on fait “IF A=B 
THEN. ” en Basic. on écrirait en as- 
sembleur une séquence du type: 
“Comparer À et B"” puis "Si le résul- 
tat de la comparaison est l'égalité 
alors...”. Le microprocesseur soustrait 
en fait B de A {mais sans changer la 
valeur de A), et positionne le ‘der- 
nier résultat” en conséquence. le test 
porte donc en définitive sur la valeur 
de ce ‘dernier résultat”. 

Pour ce qui est des tests autorisés, 
nous ne retiendrons pour l'instant 
que ceux qui ont déjà été évoqués 
dans l'article précédent. à savoir 
l'égalité (testée par BEQ. soit ‘der- 
nier résultat” — O0) et la différence 
(testée par BNE, soit ‘dernier résul- 
tat’ <> 0). Nous traiterons des 
autres possibilités dans un prochain 
article. dans lequel sera précisée la 
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nature réelle de notre fameux ‘der- 
nier résultat”. 


Comparaison avec l’accumula- 
teur 


Le code ‘’mnémonique” de l'instruc- 
tion est CMP, ce qui suffit pour indi- 
quer que l’un des termes de la 
comparaison est l'accumulateur. Le 
second terme dépend de ce qui suit 
CMP. 


On peut ainsi comparer à l’accumu- 
lateur soit une valeur donnée, soit le 
contenu d'une adresse. Dans cette 
seconde hypothèse, tous les modes 
d'adressage sont autorisés pour défi- 
nir l'adresse concernée. Vous trouve- 
rez ci-après la liste des syntaxes pos- 
sibles pour l'instruction CMP et les 
codes hexadécimaux correspondants 
(ADS désigne une étiquette symboli- 
que affectée à l'adresse dans le pro- 
gramme en assembleur). 


e CMP valeur = CMP #$NN = C9 
NN (exemple : C9 A8) 


e CMP adresse en page zéro = 
CMP ADS = CMP $aa = C5 aa 


e CMP adresse quelconque = CMP 
ADS = CMP faaaa = CD octet 
bas/octet haut (exemple: CMP 
$9OFF = CD FF 90) 


e CMP ‘adresse page zéro',X = 
CMP ADS,X = CMP $aa,X = D5 
adresse 


e CMP ADSX = CMP faaaaxX = 
DD octet bas/octet haut 


e CMP ADS.Y = CMP faaaaŸ = 
D9 octet bas/octet haut 


e CMP (ADS.X) = CMP ($aa,X) = 
C1 adresse 


e CMP (ADS,Y) = CMP ($aa).Y = 
D1 adresse 


Notez bien que le contenu de l’accu- 
mulateur n'est pas affecté par l'opé- 
ration de comparaison. ce qui auto- 
rise les comparaisons en chaîne. 
telles que : 


CMP #$80 
BEQ ETIQUETTE 
CMP #$8D 
BEQ ETIQUETTEZ 


Comparaison avec le registre X 


Le code mnémonique est CPX. 

Là encore. il est possible de compa- 
rer X avec une valeur ou le contenu 
d'une adresse, mais seul l'adressage 
direct non indexé est autorisé. 

Le contenu de X demeure inchangé. 
ce qui permet également les compa- 
raisons en chaîne. 


Initiation à l’assembleur (2) 


Gérard Michel 


e CPX valeur = CPX #$NN = E0 
NN (par exemple, EO 04) 


e CPX adresse page zéro = CPX 
ADS = CPX $aa = F4 adresse 


e CPX adresse quelconque = CPX 
ADS = CPX $faaaa = EC octet 
bas/octet haut 


Comparaison avec le registre Ÿ 


Le code mnémonique est CPY. 


Mêmes remarques générales que 

pour CPX. 

e CPY valeur = CPY #$NN = CO 
NN 


e CPY adresse page zéro = CPY 
ADS = CPY $aa = C4 adresse 


e CPY adresse quelconque = CPY 
ADS = CPY $faaaa = CC octet 
bas/octet haut 


Augmenter ou diminuer 
le contenu d’une adresse 
INC 


Cette instruction permet d'augmenter 
de 1 le contenu de l'adresse donnée 
après INC et correspondrait à 
’A=A+1” en Basic. Elle agit directe- 
ment sur l'adresse concernée. ans 
qu'il soit nécessaire de passer par 
l'intermédiaire d'un registre. 


Une adresse correspondant à un 
octet. son contenu ne peut prendre 
qu'une valeur comprise entre $0 et 
$FF (0 à 255 en décimal). Ainsi, si 
l'adresse ADR contient $FF et que 
vous faites ‘INC ADR”, vous trouve- 
rez O dans ADR (de même que 
9+1=0 si on ne compte que sur un 
chiffre !). 


De plus, notre fameux ”’dernier résul- 
fat” tient compte de la valeur de 
l'adresse après son traitement par 
INC: il devient nul si l'adresse 
contient O (comme dans le cas ci- 
dessus) et sera différent de O dans 
tous les autres cas. @n peut donc ef- 
fectuer des tests significatifs par BNE 


et BEQ en sortie d’une instruction 
INC. 


Ceci est particulièrement utile lorsque 
l'on veut manipuler l’adresse-base 
d'un adressage indirect indexé par Ÿ, 
ou, de manière générale, une valeur 
supérieure à 255 et qui occupe donc 
deux octets. Supposons ainsi que 
Pon ait à incrémenter de 1 en 1 une 
valeur stockée aux adresses $18 
{octet bas) et $19 (octet haut). La sé- 
quence d'instructions à utiliser serait : 
ins.1 INC $18 

ins.2 BNE Ins 4 

Iins.3 INC $19 


a 
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Ins.4 

On augmente l'octet bas de 1: si le 
résultat n'est pas nul, on saute à la 
suite du programme. sinon on aug- 
mente l’octet haut de 1. Si l'on arrive 
à Ins.1 avec 0418” dans $18-$19, 
on aura 0518” en arrivant à Ins 4. 
mais si l'on arrive avec "FF18" on 
aura 0019” après être passé par les 
deux INC. 


L'adressage indirect ne peut être uti- 
lisé avec INC. 


e INC adresse page zéro = INC 
ADS = INC $aa = E6 adresse 

e INC adresse quelconque = INC 
ADS = INC $aaaa = EE octet 
bas/octet haut 


e INC ‘adresse page zéro”.X = INC 
ADSX = INC $aaxX = F6 
adresse 


e INC “adresse quelconque”X = 
INC ADS.X = INC faaaaX = FE 
octet bas/octet haut 


DEC 


Comme on pouvait légitimement s'y 
attendre. DEC permet de diminuer 
de 1 le contenu d'une adresse. Là 
encore, le ‘dernier résultat” évolue 
en fonction du contenu de l'adresse 
après DEC. mais on ne peut l'utiliser 
aussi facilement qu'avec INC pour la 
manipulation de valeurs sur deux 
octets. puisque l'octet haut doit dimi- 
nuer lorsque l'octet bas vaut $FF et 
non lorsqu'il vaut O (de même que 
l'on ne change de dizaine que lors- 
que le chiffre des unités tombe à 9 et 
non à 0). 

En reprenant notre exemple précé- 
dent. la séquence d'instructions à uti- 
liser avec DEC serait : 

Ins.1 DEC $18 

Ins.2 LDA $18 

Ins.3 CMP #$FF 

Ins.4 BNE Ins.6 

Ins.5 DEC $19 

Ins.6 … 

(on aurait pu également utiliser les 
registres X ou Y en lieu et place de 
l'accumulateur) 


e DEC adresse page zéro = DEC 
ADS = DEC f$aa = C6 adresse 

e DEC adresse quelconque = DEC 
ADS = DEC faaaa = CE octet 
bas/octet haut 

e DEC ‘adresse page zéro'X — 
DEC ADS.X = DEC $aa,X = D6 
adresse 

e DEC ‘adresse quelconque”, X = 
DEC ADS,X = DEC faaaa,X — 
DE octet bas/octet haut 


Saut inconditionnel : 
JMP 


Les instructions BEQ et BNE, main- 
tenant bien connues de tous, provo- 
quent un branchement à un endroit 


donné du programme si le résultat 
du test effectué sur le “dernier résul- 
tat” répond à leur attente (respective- 
ment égal à O et différent de 0). De 
plus. nous avons vu que le branche- 
ment se fait en fonction d'un dépla- 
cement et non directement sur une 
adresse que l’on indiquerait derrière 
BEQ ou BNE. On se “branche” 10 
octets plus bas. ou encore 48 octets 
plus haut, si la condition est satisfaite. 


L'instruction JMP, en revanche, pro- 
voque un saut ‘’inconditionnel” à 
l'adresse indiquée à sa suite; elle se 
rapproche en cela de l'instruction 
GOTO du Basic. 

Ainsi, “JMP $FDEO” (ou JMP ADR 
si ADR a été définie comme étiquette 
pour $FDEO0) provoquera un saut à 
l'adresse $FDEO dès que sera ren- 
contré le code de JMP. 

JMP diffère de JSR comme GOTO 
de GOSUB : un RTS ne ramènerait 
pas à l'instruction qui suit JMP mais 
à celle qui suit le dernier JSR effec- 
tué dont on ne serait pas encore re- 
venu. 


ll est possible d'utiliser JMP avec 
l'adressage indirect: le saut se fait 
alors à l'adresse contenue dans 
l'adresse indiquée après JMP. 


e JMP adresse absolu = JMP ADS 


= JMP $faaaa = 4C octet 
bas/octet haut 
e JMP adresse indirect = JMP 


(ADS) = JMP ($aaaa) = 6C octet 
bas/octet haut 


La pile du 
microprocesseur 


Lorsque le microprocesseur rencon- 
tre une instruction JSR. il doit stocker 
quelque part l'adresse du point de 
retour à laquelle ramènera le RTS de 
fin de la sous-routine. Il dispose pour 
cela d'un ’silo” bien à lui baptsé 
“pile”. En simplifiant. on peut dire 
que l'adresse de retour est posée sur 
le sommet de la pile et que le pro- 
cesseur vient l'y reprendre lorsqu'il 
rencontre un RTS. 


Considérons par exemple les instruc- 
tions suivantes . 


Adresse 0 JSR Adresse 2 
Adresse 1 Suite du programme 
Adresse 2 JSR Adresse 4 
Adresse 3 RTS 

Adresse 4 JSR Adresse 6 
Adresse 5 RTS 

Adresse 6 LDA $F0 

=== RTS 


Après le “JSR Adresse 6”, la pile 
contiendra dans l'ordre : 


Adresse 5 
Adresse 3 
Adresse 1 


Le RTS qui suit Adresse 6” ramè- 


nera donc à ‘Adresse 5", dont le 
RTS ramènera alogs à ‘Adresse 3” 


D 
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qui provoquera finalement le retour à 
“Adresse 1”, La pile est de type 
dernier entré - premier sorti : une 
nouvelle donnée à stocker est tou- 
jours posée sur le dessus et, chaque 
fois qu'il doit récupérer une informa- 
tion stockée dans la pile. le proces- 
seur prend toujours celle qui se 
trouve au sommet 


Le programmeur peut également uti- 
liser cette pile pour des stockages 
temporaires. En particulier. deux ins- 
tructions permettent d’empiler et de 
dépiler l'accumulateur : 


e PHA (code 48): dépose le 
contenu de l'accumulateur au 
sommet de la pile 


e PLA (code 68): transfère l'octet 
qui se trouve au sommet de la pile 
dans l'accumulateur. 


Cela limite le nombre d'adresses à 
utiliser pour une sauvegarde momen- 
tanée d'information. dans le cas par 
exemple où l'on veut sauvegarder le 
contenu de certaines adresses avant 
l'appel d'une sous-routine qui utilise 
et modifie ce contenu, puis récupérer 
les valeurs initiales au retour de la 
sous-routine. De même si l'on doit 
calculer la nouvelle adresse-base 
d'un adressage indirect post-indexé 
par Ÿ en ajoutent à l'ancienne 
adresse une valeur obtenue juste- 
ment par adressage post-indexé sur 
la base de cette ancienne adresse (le 
principe consiste alors à mettre dans 
l'accumulateur loctet bas de 
l'adresse. lui ajouter la donnée obte- 
nue avec la valeur adéquate de Y. 
empiler l'accumulateur. charger en- 
suite l'accumulateur avec l'octet haut 
de l'adresse, lui ajouter la donnée 
obtenue avec la seconde valeur adé- 
quate de Y, stocker le résultat dans 
l'octet haut de l'adresse, puis dépiler 
dans l'accumulateur et stocker ce 
dernier dans l'octet bas de l'adresse - 
ce que l'on ne pouvait faire dès le 
début puisque cela aurait modifié 
l'adresse-base avant que l'on ait ré- 
cupéré la valeur correcte à ajouter à 
l'octet haut. d'où incohérence des ré- 
sultats). 


Lorsque l'on utilise la pile pour sto- 
cker des données. il convient de se 
rappeler que. pour le bon fonction- 
nement du système. tout ce qui a pu 
être déposé sur une information doit 
être retiré avant la récupérahon à 
bon escient de celle-ci. Le petit pro- 
gramme suivant, par exemple. 
conduirait à des résultats peu confor- 
mes aux espérances du program- 
meur : 


LDA $18 
PHA 


Pom's n° 12 


En effet, l’accumulateur est empilé. 
puis le ’JSR SR" provoque le dépôt 
au sommet de la pile de l'adresse de 
retour. Dans la sous-routine SR. PLA 
transfère dans l’accumulateur l’octet 
qui se trouve au sommet de la pile. 
soit l'un des deux octets de l'adresse 
de retour. puis le RTS entraînera un 
branchement sur une pseudo” 
adresse de retour composée de l'un 
des octets de l'adresse véritable et de 
la valeur empilée par PHA avant 
l'appel de la sous-routine. Î] y a peu 
de chances pour que cette “pseudo” 
adresse soit la même que celle de 
l'instruction suivant “JSR SR’ et, à 
moins que cela ne soit délibérément 
voulu. vous risquez quelques surpri- 
ses... 


Exemples d'application 


Nous vous proposons trois petits pro- 
grammes d'illustration, sans grand in- 
térèt pratique il est vrai. mais qui of- 
frent tous l'avantage de rendre 
visibles les résultats de leur exécu- 
tion. 


Exemple 1 
Le programme Basic remplit l'écran 
avec des caractères quelconques 


avant d'appeler la routne en langage 
machine. Cette dernière attend une 
saisie au clavier de la forme 
"/CI/C2/RETURN" (par exemple : 
fAT/) et remplace ensuite tous les 
caractères C1 affichés par des carac- 
tères C2 (par exemple tous les À par 
des T). 


Analysons donc en détail le pro- 
gramme en assembleur, source de la 
routine machine, en rappelant tout 
d'abord que ORG est une ‘’directive” 
de l'assembleur (ici LISA 15) don- 
nant l'adresse à partir de laquelle 
doit se faire l'assemblage. tandis que 
EQU et EPZ sont deux directives 
permettant d'affecter une étiquette 
symbolique à une adresse (EPZ si 
l'adresse est en page zéro et EQU 
dans le cas contraire). 


Ligne 2: $FC22 est l'adresse de la 


Exemple 1 : source assembleur 


0300 1 

0300 2 VTAB 
0300 3 COUT 
0300 4 GET 
0300 S  BASCAL 
0300 6 CLR 
0300 7  ADB 
0300 8 H 
0300 91 
0300 TOC 
0300 11)%E2 
0300 AS17 12 SO 
0302 8525 13 
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routne du moniteur qui exécute 
l'équivalent du VTAB de l’Applesoft. 
en fonction de la valeur trouvée à 
l'adresse $25 (V), qui doit donc 
contenir la position verticale du cur- 
seur souhaitée. 

Ligne 3: $FDED est l'adresse de la 
routine qui fait exécuter le sous-pro- 
gramme de sortie de caractères. 
Ligne 4: $FDOC est l'adresse de la 
routine qui fait exécuter le sous-pro- 
gramme de saisie de caractères. 
Ligne 5 S$FBC] est l'adresse de la 
routne qui calcule l'adresse-base 
d'une ligne d'écran dont le numéro 
(0 à #$17) lui est donné dans l'accu- 
mulateur (voir article précédent). 
Ligne 6 $FC®C est l'adresse de la 
routine qui efface une ligne à partir 
de la position du curseur jusqu'à la 
fin de la ligne (c’est la routine appe- 
lée par un CALL —868 en Basic). 
Ligne 7 : $28-$29 contient l'adresse- 
base de la ligne calculée par $FBCI1. 
Ligne 8: $24 est l'adresse dans la- 
quelle doit être stockée la position 
horizontale du curseur. 

Ligne 18: nous mettrons à l’adresse 
$6 le code-écran du caractère à rem- 
placer. 

Ligne 11: $7 contiendra pour sa 
part le code-écran du caractère de 
remplacement 

Lignes 12 à 14: on déplace le cur- 
seur à la ligne numéro $17 (équiva- 
lent à VTAB 24), 

Lignes 15 à 17: on se place au 
début de la ligne #$17 et on l’efface. 
Lignes 18 et 19: on se repositionne 
au début de la ligne. 

Ligne 20: demande la frappe d'un 
caractère au clavier. Le code-écran 
du caractère sera dans l'accumula- 
teur au retour de GET. 

Ligne 21: #$AF est le code-écran 
de ‘/”. On veut donc savoir si le ca- 
ractère tapé est ‘/” 

Ligne 22 : si ce n'est pas le cas. la 
demande est réitérée. 

Ligne 23 : le caractère est bien ? 
on affiche à l'écran. 

Ligne 24 : on en demande un autre. 
Ligne 25: #$8D est le code-écran 





de RETURN: notre caractère est-il 
un RETURN ? 

0304 2022FC 

0307 A9OO 
ORG $300 0309 8524 
EQU S$SFC22 030B 209CFC 
EQU SFDED 030E A9SOO 
EQU S$FDOC 0310 8524 
EQU SFBCI1 0312 20OOCFD 
EQU SFC9C 0315 CSAF 
EPZ s28 0317 DOFS 
EPZ $24 0319 2OEDFD 
EPZ $25 031C 20O0CFD 
EPZ $6 031F C98D 
EPZ S7 0321 FO13 
LDA #517 0323 20EDFD 
STA V 0326 A624 


Lignes 26 et 27. ä oui. on saute à 
S2, sinon on l'affiche. 

Lignes 28 à 31 : on charge le registre 
X avec la position horizontale du cur- 
seur {H) et on le compare à la valeur 
2. Si X vaut 2, en effet, notre carac- 
tère doit être celui qu'il faut rempla- 
cer (H vaut 0 avant le premier GET. 
puis 1 après le COUT de ‘/”. puis 2 
après le COUT du premier carac- 
tère). Dans ce cas. on saute à S10 
où le caractère est stocké dans C1 
avant le retour à la demande de 
frappe au clavier. 

Lignes 31 et 32: X est différent de 
2. il s'agit donc du caractère de rem- 
placement que l'on stocke dans C2 
avant retour à Ja saisie. 

Lignes 35 à 37 : pour que la syntaxe 
soit respectée. H doit être à 5 lors de 
la frappe du RETURN (on a affiché 5 
caractères aux positions @ à 4) Sitel 
n'est pas le cas. le RETURN est re- 
fusé. 

Lignes 38 à 39: on va examiner le 
contenu de toutes les lignes d'écran 
en commençant par la première (0) 
Ligne 40: calcul de l'adresse-base 
d'une ligne. 

Ligne 41. on commence à la pre- 
mière colonne de chaque ligne. 
Ligne 42. on charge l'accumulateur 
avec le caractère situé dans la co- 
lonne YŸ de la ligne dent l'adresse- 
base est contenue dans ADB. 

Lignes 43 et 44: on le compare à 
CI et. s'il lui est identique. on arrive 
à la ligne 45. On saute à S3 dans le 
cas contraire. 

Lignes 45 et 46: on remplace CI 
par C2. 

Lignes 47 à 49: Y=Y4+1 La der- 
nière colonne porte le numéro 
#$27 : si YŸ est différent de #$28 on 
examine le caractère suivant dans la 
mème ligne. Si Ÿ vaut #$28. la der- 
nière colonne a été traitée et on 
passe à la ligne suivante. 

Ligne 50  V=V+1 

Lignes 51 à 54: si V est différent de 
#$18, il reste des lignes à examiner 
et on retourne en S5. Sinon. on re- 
vient au début de la routine pour de- 
mander d'autres caractères (on ne 
peut sortir que par RESET). 





14 JSR VTAB 
15 LDA #0 
16 STA H 

17 JSR CLR 
18 LDA #0 
19 STA KH 
20:91 JSR GET 
21 CMP #SAF 
22 BNE S1 
23 JSR COUT 
24 Si1 JSR GET 
25 CMP #S8D 
26 BEQ S2 
27 JSR COUT 
28 LDX H 

_ _ 


25 


26 


0328 EO02 29 
O32A FOOS 30 
032C 8507 31 
032E 4C1203 32 
0331 8506 3327 STÛ 
0333 4C1203 34 
0336 A624 35 S2 
0338 EOOS 36 
O33A DOEO 37 
033C A93OO0 38 
033E 8525 39 
0340 20CIFB 40 SS 
0343 AOOO 41 
0345 B128 42 Sd 
0347 CS06 43 
03493 DOO4 44 
034B ASO7 as 
034D 9128 46 
034F C8 47 S3 
0350 CO28 48 
03352 DOF1 49 
0354 E625 50 
0356 AS25 51 
0358 C918 52 
O3SA DOE4 53 
03S5C 4C0003 54 


CPX #2 Exemple 1 : récapitulation 
BEQ S10 0300- A9 17 85 25 20 22 FC A9 
STA C2 0308- 00 85 24 20 9C FC A9 OO 
JMP Si 0310- 8$ 24 20 OC FD CS AF DO 
STA C1 0318- F9 20 ED FD 20 OC FD C9 
JMP S1 0320- 8D FO 13 20 ED FD A6 24 
LDX H 0328- EO O2 FO O5 85 07 4C 12 
CPX #5 0330- 03 85 06 4C 12 03 A6 Zz4 
BNE S11 0338- EO 05 DO EO A9 O0 85 25 
LDA #0 0340- 20 C1 FB AO OO Bi 28 CS 
STA V 0348- 06 DO O4 AS 07 91 28 C8 
JSR BASCAL 0350- CO 28 DO F1 E6 25 AS 25 
LDY #0 0358- C9 18 DO E4 4C OO 03 
Due PE Exemple 1 : programme Basic 
BNE 53 SUTEXT 
LDA C2 10 DS = CHRS (4): PRINT DS'‘*Bi.OAD 
ARE ES INI2.0BJ": HOME : PRINT "LE T 
ae j EXTE @UI SUIT N’EST DESTINE @ 
U’A REMPLIR L'ECRAN POUR AVOI 
CPY #$28 R DES CARACTERES"*: 
BNE Sa 20 PRINT “A M@DIFIER POUR LA ROUT 
INC V INE EN LANGAGE-MACHINE...": PRINT 
LDA V 
CMP #S18 30 FOR I = 1 TO 350:CS = CHRS {3 
BNE S5 2 + INT € RND (1) *# 59)): PRINT 
JMP SO CS 55 ONEXT S'CALL 768 


mme 


Exemple 2 


Le programme est très court. mais 
plus ‘ambitieux’ que le précédent 
{mais oui!) Il s'agit de modifier le 
sous-programme de sortie de carac- 
tères afin de rendre plus souple le 
mélange de textes affichés en mode 
normal et en mode inverse (pour évi- 
ter justement l'usage répété des ins- 
tructions NORMAL et INVERSE). 


Les adresses $36 et $37 (54-55 en 
décimal) contiennent l'adresse du 
sous-programme de sortie de carac- 
tères utilisé par le système. Au début 
du programme Applesoft d'illustra- 
tion. nous y plaçons donc l'adresse 
de notre routine ($300 soit octet bas 
— 0 et octet haut = $3 = 3). Le 
CALL 1002 est utilisé pour rendre ce 
changement effectf en le faisant 
prendre en compte par le DOS (voir 
à ce sujet les explications détaillées 
données par Olivier Herz dans le 
courrier des lecteurs du numéro 11 
de Pom ss). 


Le but à atteindre est de remplacer 
INVERSE par ‘Control-l” (que nous 
noterons CTRL-]} et NORMAL par 
CTRL-N, afin de pouvoir taper une 
instruction telle que : 

PRINT "CTRL-ICECI EST UNCTRL- 
N EXEMPLE" 


Exemple 2 : source assembleur 


0300 1 
0300 C989 2 
0302 DOOS 3 
0304 A9S3F 4 
0306 83532 D 


et de voir s'afficher CECI EST UN 
en inverse et EXEMPLE en normal 
(CTRL:- et CFRL-N seront bien sûr 
“invisibles” dans l'instruction affichée 
à l'écran). 

Voyons maintenant comment la rou- 
tine v parvient, sachant que le carac- 
tère à ‘sortir lui arrive contenu dans 
l'accumulateur. 

Lignes 2 et 3: #$89 est le code- 
écran de CTRL-.A Si le caractère 
n'est pas CTRL-E on saute à Si. 
Lignes 4 à 6: l'adresse $32 contient 
un ‘drapeau qui indique au sys- 
tème quel mode d'affichage vidéo 
utiliser. L'affichage est normal si $32 
contient #$FF. inverse pour #$3F et 
clignotant pour #$7F (en fait, la va- 
leur de $32 est utilisée pour modifier 
les codes-écran en fonction de l'affi- 
chage souhaité). Après avoir rencon- 
tré un CTRL- on met donc l'affi- 
chage en mode inverse. et l'on sort 
de la routine sans rien afficher pour 
l'instant. 

Lignes 7 et 8: #$8E est le code- 
écran de CTRL-N. Si l'accumutateur 
ne contient pas CTRL-N. on saute à 
S2 


Lignes 9 à 11 : après avoir rencontré 
CTRL-N. on remet l'affichage en 
mode normal et l'on ressort de la 
routine. 


0308 60 
0303 CS8E 
030B DOOS 
ORG $S300 0O30D ASFF 
CMP #$89 030F 8532 
BNE Si 0311 60 
LDA #53F 0312 20FOFD 
STA $32 0315 60 


Lignes 12 et 13 : $FDFO est l'adresse 
du sous-programme ‘standard de 
sortie de caractères. Vous aurez re- 
marqué que l'on n'utilise pas cette 
fois $FDED comme dans le pro- 
gramme précédent. En effet. $FDED 
fait exécuter le sous-programme de 
sorte. par un JMP à l'adresse conte- 
nue dans $36-$37. En situation nor- 
male. cette adresse ramènerait à 
$FDFO ($FDED étant alors pratique- 
ment équivalent à $FDFO) mais 
comme nous avons modifié le 
contenu de $36-$37. utiliser $FDED 
dans notre routine reviendrait finale- 
ment à ‘’JMP $300”. d'où retour au 
début de la routine et boucle infinie. 
Si l'accumulateur ne contient ni 
CTRLI ni CTRL-N. on affiche donc 
le caractère correspondant. sachant 
que cet affichage tiendra compte de 
la valeur contenue dans $32. puis on 
sort de la routine. 


Le retour à la routine standard de 
sortie de caractères peut se faire par 
RESET. Par ailleurs. vous pourrez 
constater que si notre routine est ac- 
tive. le LIST d'un programme Apple- 
soft contenant des parbes de texte in- 
cluses entre CTRLI et CTRL-N 
provoque également l'affichage de 
celles-ci en inverse dans les lignes de 
programme. 


6 RTS 

F0-S1 CMP #S8E 
8 BNE S2 

9 LDA #SFF 
10 STA S32 
11 RTS 
12%,52 JSR SFDFO 
LS RTS 


Exemple 2 : récapitulation 


0300- C9 89 DO 05 A9 3F 85 32 
0308- 60 C9 8E DO 05 A9 FF 85 30 


0310- 32 60 20 FO FD 60 


Exemple 2 : programme Basic 





TE QUESTION ? 


STION 1 “ss INPUT "25: PRINT 
25: PRINT 
INPUT “QUESTION 2 "#28: PRINT 
ZS 

40 PRINT INPUT “ENCORE UNE PETI 


“.2S 





50 REM LES MESSAGES ‘QUESTION 1“ 
10 PRINT CHRS (4)'"BLOAD INI3.8BJ » ‘QUESTION 2‘ ET ‘ENCORE UNE 
*: POKE 54,0: POKE 55,3: CALL PETITE QUESTION ? ‘* SONT ENC 
1002 ADRES PAR DES CTRL-I ET CTRL- 
20 HOME PRINT “ UE N 
Exemple 3 Nous vous laissons le soin d'analyser l'appel à $FCIC lignes 32-33) et 
; : NS le programme. au moyen des rensei- avant l'appel à $FDF® {lignes 57- 
Après avoir modifié le sous-pro- 


gramme de sortie de caractères. 
pourquoi ne pas essayer de faire de 
même avec le sous-programme d'en- 
trée ? 

Cette fois. c'est aux adresses $38 et 
$39 (56 et 57 en décimal) qu'il faut 
stocker l'adresse de notre routine 
d'entrée avant d'exécuter un CALL 
1002 


La routine affichera en inverse sur la 
dernière ligne de l'écran les caractè- 
res tapés, qui s'afficheront ensuite à 
la position du curseur dans les condi- 
tions habituelles Si on tape RE: 
TURN ou si 40 caractères ont été af- 
fichés sur la dernière ligne. celle-ci 
s'efface et la sortie en inverse re- 
prend à la première colonne. 

Ce mode d'affichage double ne sera 
toutefois actif que lorsqu'on aura 
tapé CTRL:-A. et il le restera jusqu'à 
la frappe de CTRL:B ou RESET (re- 
tour à la routine standard dans ce 
dernier cas). 


Exemple 3 : source assembleur 


0300 al 
0300 201BFD 2 So 
0303 C981 3 
0305 DO14 4 
0307 AOO1 S 
0309 8406 6 
030B 2058FC 7 
030E E624 8 
0310 A200 9 
0312 A9DD 10 
0314 8D0004 LE 
0317 ASAO 12 
0319 DOES 13 
031B C982 14 Si 
031D DO33 15 
031F AOOO 16 
0321 8406 177 
0323 202D03 18 
0326 2022FC 19 
03293 A9SAO 20 
032B DOD3 21 
032D AS25 22.501 
032F 8508 23 
0331 A917 24 
0333 8525 25 
0335 2022FC 26 
Pom'sn 12 


gnements déjà donnés dans le cours 
de cet article et des ultimes précisions 
ci-après. Bon courage ! 


e $SFDIB est l'adresse du sous-pro- 
gramme standard de saisie de ca- 
ractères. Mêmes remarques pour 
$FDIB par rapport à $FD6C que 
pour S$FDF@ par rapport à 
$FDED. 

e Les adresses $6. $7 et $8 nous 
serviront de variables de travail. 

e #$81 est le code-écran de CTRL- 


e $FC58 est l'adresse de la routine 
HOME. 

e #$DD est le code-écran du cro- 

chet fermant {]}) et $400 est 

l'adresse de la première colonne 

de la première ligne de l'écran 

#$A@ est le code-écran de ‘es- 

pace”. #$82 celui de CTRL-B et 

#$8D celui de RETURN 

e On utilise la pile pour sauver la 
valeur contenue dans $24 (posi- 
tion horizontale du curseur) avant 


0338 A406 

033A FO04 
ORG $300 033C AS24 
JSR SFDI1B 033E DOOD 
CMP #$81 0340 AS24 
BNE 51 0342 48 
LDY #1 0343 A9OO0 
STY $S6 0345 8524 
JSR SFCSE 0347 209CFC 
INC S24 034A 68 
LDX #0 034B 8524 
LDA #SDD 034D ASO8 
STA $400 034F 8525 
LDA #SAC 0351 60 
BNE 50 0352 A406 
CMP #$82 0354 DOO1 
BNE 52 0356 60 
LDY #0 0357 C98D 
STY S6 03593 DOOD 
JSR S01 035B C606 
JSR SFC22 035D 202D03 
LDA #S$SAO 0360 E606 
BNE SO 0362 2022FC 
LDA $S25 0365 A98D 
STA S8 0367 60 
LDA #S17 0368 8507 
STA S2S O36A 202D03 
JSR SFC22 036D AO3F 


58) qui réclament où entraînent 
une modification de cette valeur. 

$21 (33 en décimal) contient la 
valeur de la largeur de l'écran On 
l'augmente avant JSR $FDF6' 
(ligne 60) et on la réduit ensuite 
afin que l'affichage de la dernière 
colonne de la dernière ligne ne 


provoque pas de scroll” des 
autres lignes. 
La sous-routine SOI. interne au 


programme. réalise l'équivalent de 
VTAB 24 avec en sus effacement 
de la dernière ligne dans les cas 
suivant : affichage de 40 caractè- 
res. frappe de RETURN. frappe de 
CTRL-B. Elle rétablit les valeurs 
des positions horizontale et verti- 
cale du curseur dans les lignes 
normales” avant de rendre la 
main au programme principal. 

Avant de sortir de la routine (ligne 
51 et ligne 68), on remet dans 
l'accumulateur le code-écran du 
caractère saisi afin d'en permettre 
l'affichage par les voies normales = 


27 LDY S6 
28 BEQ SO2 
29 LDA $24 
30 BNE 503 
31 S02 LDA S24 
32 PHA 

33 LDA #O 
34 STA S24 
35 JSR SFC9C 
36 PLA 

37 STA S24 
38 503 LDA $8 
39 STA S25 
40 RTS 

41 S2 LDY $6 
42 BNE Sa 
43 RTS 

44 S4 CMP #S8D 
4s BNE S3 
46 DEC S6 
47 JSR SO1 
48 INC 56 
49 JSR $SFC22 
50 LDA #S8D 
S1 RTS 

92 53 STA $7 
53 JSR SO1 
94 LDY #S3F 


27 


036F 8432 55 STY 532 0320- 00 84 06 20 2D 03 20 22 

0371 A524 56 LDA $24 0328- FC A9 AO DO D3 AS 25 85 
0373 48 57 PHA 0330- 08 A9 17 85 25 20 22 FC 
0374 A507 58 LDA S7 0338- A4 06 FO O4 A5 24 DO OD 
0376 E621 59 INC S$21 0340- A5 24 48 A9 00 85 24 20 
0378 20FOFD 60 JSR SFDFO 0348- 9C FC 68 85 24 A5 08 85 
037B C621 61 DEC S21 0350- 25 60 A4 06 DO O1 60 C9 
037D 68 62 PLA 0358- 8D DO OD C6 06 20 2D 03 
037E 8524 63 STA S24 0360- E6 06 20 22 FC A9 8D 60 
0380 2022FC 64 JSR SFC?2 0368- 85 07 20 2D 03 AO 3F 84 
0383 AOFF 65 LDY #SFF 0370- 32 AS 24 48 A5 07 E6 21 
0385 8432 66 STY S32 0378- 20 FO FD C6 21 68 85 24 

0387 AS507 67 LDA $7 0380- 20 22 FC AO FF 84 32 AS 
0389 60 68 RTS 0388- 07 60 

Exemple 3 : récapitulation Exemple 3 : programme Basic 

0300- 20 1B FD C9 81 DO 14 AO 10 PRINT CHRS (4)"BLOAD INI4.0BJ 
0308- 01 84 06 20 58 FC E6 24 “: POKE 56,0: POKE 57,3: CAEL 
0310- A2 OO A9 DD 8D OO O4 A9 1002: POKE 6,0: TEXT : HOME 
0318- AO DO ES C9 82 DO 33 AO POKE 35,22 








Bien qu'il ait conservé le même nom 
depuis le 25 août 1980, le DOS 3.3 
a connu un certain nombre de modi- 
fications. En particulier, l'apparition 
de l'Apple //e en janvier 1983 a pro- 


voqué la modification du DOS (pour 
qu'il supporte la carte 80 colonnes) 
et une tentative (initialement infruc- 
tueuse) de remédier au bug de l'AP- 
PEND fvoir “Réparez votre AP- 
PEND” et ‘Les drames de 
l'APPEND” dans les Pom's 1 et 2}; 
depuis novembre 1983. les disquet- 
tes MASTER fournies par Apple 
contiennent une version enfin corri- 
gée de ce bug. 


Je vous propose de modifier votre 
DOS de manière à le rendre plus 
agréable d'utilisation à l'aide d'un 
programme qui incorpore 6 patches : 
e la commande TDUMP, déjà parue 
dans le Pom's 10 page 71, rem- 
place CHAIN (syntaxe : TDUMP 
fichier [,S slot] [,D drive] [V vo- 
lume}}; POKE 48361,3 permet de 


visualiser les fichiers à accès direct: 
POKE 48361,18 rétablit l’état nor- 
mal, 

e correction du bug du catalogue (la 
longueur d’un fichier est indiquée 
modulo 255); 

e mise à jour du DOS pour la ver- 
sion //e, y compris la rectification 
de l'APPEND: 

e un patch permettant de sortir avec 
CTRL-Q du catalogue pendant la 
pause: 

e un patch pour afficher le nombre 
de secteurs libres après l'indication 
du volume; 

e un dernier patch qui place le cur- 
seur sur la commande en cas 
d'instruction erronée au DOS. 


Assurez-vous que votre DOS est 
standard avant d'exécuter ce pro- 





Patch du DOS 3.3 


Yvan Koenig 


gramme, car il utilise certaines zones 
libres de la mémoire. très connues et 
éventuellement déjà employées. En 
cas de doute, bootez d'abord sur 
votre disquette MASTER. 


Attention ! Ces modifications sont in- 
compatibles avec la plupart des pro- 
grammes qui déplacent le DOS sur la 
carte langage. 


Ces modifications n'annulent pas la 
commande INIT,; il est donc possible 
d'initialiser des disquettes qui les 
contiendront en permanence. Dans 
ce cas, il est préférable de marquer 
sur l'étiquette qu'il s’agit d'un DOS 
3.3 ‘’patché”, sinon vous pourriez ne 
pas comprendre pourquoi certains 
programmes (qui utiliseraient les 
mêmes adresses) ne marchent plus. : 


1 REM KOENIG 22/2/84 3 4C 7F B3 O O O*: GOSUB 300: CALL - 144 

10 FLASH : PRINT “PATCH EN COURS": NORMAL 150 HEXS = “A6BB:20 69 BA NB684:84 BA NB6GAA:BB N 

99 REM TDUMP FILE,S56,D1,VO BFD6:20 76 BA 4C 44 B7 NBSFD:0 O O NB65S2: 

100 HEXS = “A893:54 44 SS 4D DO N9D26:DE BC N BC S": GOSUB 300: CALL - 144 
DF;:20 8E FD 20 A3 A2 20 8C A6 FO 12 20 ED 179 REM CTRL-Q:SORTIE CATALOGUE 
FD AD O CO 10 F3 8D 10 CO 20 1B FD C9 91 180 HEXS - "“AE2F:20 8E FD CE 9D B3 DO A 20 8D B7 
DO E9 20 FC A2 60*: GOSUB 300: CALL - 1 FO FO NB78D:20 C FD C9 S1 60": GOSUB 300 
44 : CALL - 144 

119 REM CATALOG > 255 SECTORS 183 REM SECTEURS LIBRES 

120 HEXS = ‘“AE42:AO 2 A9 BO 48 AS 44 D9 A4 B3 AS 190 HEXS = ‘‘B6B3:20 48 F9 86 44 86 45 AO C8 18 B 
45 E9 O 90 10 85 45 AS 44 F9 A4 B3 85 44 39 F2 B3 FO E A 90 FB 48 E6 44 DO 2 E6 45 
68 18 69 1 48 DO ES 68 NADAF:C BD AE B3 68 18 90 FO 88 DO ES 20 42 AE 4C 2F AE NA 
20 ED FD CA DO": GOSUB 300: CALL - 144 DC4:B3 B6*: GOSUB 300: CALL - 144 

129 REM MISE A JOUR IIE 209 REM CURSEUR SUR ERREUR 

130 HEXS = “B33E:18 AD BF BS 8D EC BS 6D E6 BS 8 210 HEXS = "“A6GFF:4C DS B6 NB6D9:C6 25 C6 25 C6 2 
D E6 BS AD CO BS 8D ED BS 6D E4 BS 8D E4 S Ce 25 20 22 FC 6C SE 9D“*: GOSUB 300: CA 
BS 90 3 EE ES BS 60 O O*: GOSUB 300: CALL LL - 144 

- 144 299 END 

133 REM BUG BIG APPEND 300 HEXS = HEXS + “ N D7D2G": FOR 1 = 1 TO LEN 

140 HEXS = ‘BAGS:AE SF AA EO 1C FO S A2 O 8E SD CHEXS): POKE S11 + I, ASC ( MIDS CHEXS,I, 
B6 60 AS FF 8D FB 4 8D C CO 8D E CO 4C 2F 1237 + 128: NEXT : POKE 72,0: RETURN 
FB AD BD BS 8D E6 B5 8D EA BS BA 8E S3B B 

ASE à 
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Gérard Michel 
re a ll 'LRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRR 
Vous avez sans doute déjà constaté Hi » 
que lApplesoft (comme la plupart | 3 ;,  MoDtFICATION DE LA DIM DES + ss 
des BASICSs d'ailleurs) est particuliè- 4 x TABLEAUX . : 
rement strict avec le dimensionne- S je : + 
ment des tableaux. Une instruction 6 :x CODE = DIM.VAR.OBJ ” : 
"DIM A$(28)”, par exemple. ne peut 7 ;% * Fr 
être suivie d'une instruction ‘DIM 8 5= ASSEMBLEUR : LISA 1.5 » ns 
A$(30)" sans que cela provoque eur à “x 
l'émission d'un message d'erreur. 10 SL RRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRR L 
11 ORG 5827C Uy 
Cette excessive rigueur ne va pas 12 OBJ $800 rs 
sans quelques inconvénients pour le 13 L1 EP2 s6 É 
programmeur - 14 L2 EP2 $7 
| 15 N1 EPZ $8 
e Si un tableau doit comporter X 16 N2  EPZ 59 
variables volatiles”. ne servant 17 TAB2 EPZ s18 
que pour une petite partie du pro- 18 VP  EPZ SA 
gramme. et que l'on à besoin en- 19 VP2 EPZ $iE 
suite dun tableau de même tupe 20 LDY S6B :INITIALISE TAB2 A L’ADRESSE DE 
mais de dimension Y. il faut soit A À STY TAB2 ;DEBUT DE LA ZONE DES TABLEAUX 
définir deux tableaux. soit en di- 2. = ou 
mensionner un seul à la plus | 5 LDY #5 ; NOMBRE MAXIMUM D’'OCTETS POUR 
grande des deux valeurs X et Y, | 25 STY Ni UN ELEMENT D'UN TABLEAU (RÉEL) 
mais toujours sans espoir de récu- 26 LDX #0 
pérer la place occupée par les ta- 27 STX L2 
bleaux. même s'ils deviennent inu- 28 STX S1B 
tiles. 23 STX s1C 
e Si l'on doit sauvegarder provisoi- 3e STX $1D 
FR enCaneR ee As 2 BE ee ;ON A DEJA LE CARAC. QUI SUIT & 
nd sie 33 DEB JSR $B1 :ACQUISITION CARAC. SUIVANT DU PROGRAMME 
S » 34 BNE 50 
occupée par B reste perdue. er 35 INC #18 ;DRAPEAU ‘*FIN D’INSTRUCTISN‘ 
e Un tableau dont le nombre d’élé- 36 BNE S1 
ments évolue par nature (table de | 37 so cMPp »’s ;TABLEAU ALPHANUMERIQUE ? 
référence d'enregistrements sur 38 BEQ S2 
disquette par exemple) doit être 39 CMP #’%” ; TABLEAU ENTIER ? 
défini avec la plus grande dimen- 40 BEG 53 To 
sion prévue. même si elle n'est ef- 41 CMP #$C8 CSA 
fectivement jamais atteinte, ou … 8EQ R2 is 
seulement à l'issue de plusieurs 44 En ed d 
mois de fonctonnement du pro- | 4s soe STA L1,x ;1ERE LETTRE DU NOM DU TABLEAU EN Li 
gramme. Là encore, la place per- | 46 INX ;ET 2EME EVENTUELLE EN L2 
due peut être considérable. et lon 47 BNE DEB 
pourrait évoquer d’autres problè- 48 S2 INC s1D : DRAPEAU "NOMBRE R’OCTETS PAR ELEMENT" 
mes.. 49 LDA L2 
50 @R4 #580 :L2=L2+$S80 
La routine présentée ici vise à ré- s1 STA L2 
duire le nombre de ces inconvé- 52 R@  LDY #1 ;A-T-ON UN ‘‘** OU UN “-" DERRIERE 
nient. Elle s'appelle au moyen de 53 LDA ($B8),Y  :LE CARACTERE QUE L’ON VIENT 
l'ampersand (&) et autorise deux S4 JSR SBA 3DE LIRE ? 
types de manipulat on 29 BEQ S1 :NON (FIN D’INSTRUCTIGON) 
L , : 56 JSR S$81 3OUI -> M.A.J. POINTEUR DE PROGRAMME 
e Suppression pure et simple d'un 57 CMP #SC8 ses 7 
tableau. pour en récupérer la 58 BNE Ri 
place-mémoire et permettre un re- 99 R2  JMP R3 
dimensionnement éventuel, sans 60 R1 INC #1iC ; DRAPEAU “+ OÙ ”-" 
affecter les autres tableaux ou va- 61 JNP R3 
riables. 62 S1 JSR S10 ;:SP RECHERCHE DANS ZONE DES TABLEAUX 
e Pour les tableaux à une seule di- “es _ SMF 538 
mension, possibilité d’incrémenter es si 
la DIM de 1 lorsque l'on veut ra- 66 RÉ NEDD ;Li=L1+#80 
jouter un élément {et ce autant de 67 STA Li 
fois que nécessaire), et possibilité 68 JHP S2 
de la décrémenter d'autant lors- 69 S10 LDY #0 
qu'on en supprime un. 70 LDA (TAB2),Y 
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Structure d’un tableau 
en mémoire 


Le pointeur de début de la zone des 
tableaux est donné par les adresses 
$6B-$6C. le pointeur de fin par $6D- 
$GE. 

Quel que soit le type du tableau 
(chaîne de caractères. réel ou entier), 
sa représentation en mémoire débute 
toujours par les informations suivan- 
tes : 


e Deux octets correspondant aux 
deux lettres du nom du tableau 
(même si ce dernier n'en compte 
qu'une. deux octets sont utilisés). 

e Le nombre tetal d'octets occupés 
par le tableau. dans l'ordre poids 
faible / poids fort. 

e Le nombre de dimensions. 

e Pour chacune des dimensions. le 
nombre de ses éléments. dans 
l'ordre poids fert / poids faible. 


Chaque élément occupe ensuite 2 
octets s'il sagt d'un tableau d’en- 
tiers. 3 s'il s'agit d'alphanumériques 
et 5 si ce sont des réels. 


Les lettres définissant le nom du ta- 
bleau permettent au système d'en re- 
connaître le type. et de distinguer par 
ailleurs A$ de À ou de A%. Par rap- 
port au code ASCII. mémorisé dans 
le programme. les noms mémorisés 
dans là zone des tableaux présentent 
les caractéristiques suivantes : 


e Tableau ‘entier : le code de cha- 
cune des deux lettres est aug- 
menté de $80 (s'il n'y a qu’une 
lettre. le deuxième octet contient 
donc $80} ‘’A%° serait codé ‘Cl 
80" et BB%' donnerait C2 C2” 

e Tableau ‘alphanumérique” : seul 
le code de la seconde lettre est 
augmenté de $80 "AS" serait 
codé 41 80" et ‘BBS$" donnerait 
*42C2", 

e Tableau ‘réel” : les codes ne sont 
pas modifiés. ”A’* serait codé ”41 
00” et BB” serait codé "42 42” 


La routine cherchera donc dans la 
zone des tableaux celui dont le nom 
lui est indiqué après “&'”. 

S'il s'agit seulement de le supprimer. 
elle déplacera vers le bas tout ce qui 
suit la fin du tableau, c'est-à-dire les 
autres tableaux s'il y en a. du nom- 
bre d'octets occupés par le tableau 
concerné, qui lui même sera ainsi 
écrasé”. Ceci revient à effectuer un 
"MOVE" avec pour point d'arrivée 
l'adresse du tableau et pour point de 
départ l'adresse du tableau suivant 
Les données du tableau sont évi- 
demment perdues. 

Pour incrémenter ou décrémenter la 
dimension. là routine effectuera un 
MOVE” vers le haut ou vers le bas. 
d'un nombre d’octets correspondant 
au type du tableau (2, 3 ou 5) et 
mettra à jour le nombre d’octets oc- 


AO 


30 


194 
105 
186 
107 
108 
1093 
110 
T1 
112 
113 
114 
115 
116 
117 
118 
119 
120 
121 
122 
123 
124 
125 
126 
127 
128 
129 
130 
131 
132 
133 
134 
135 
136 
137 
138 
139 
140 
141 
142 
143 
144 
145 
148 
147 
148 
149 
150 
151 
152 


CIMP 
BNE 
INV 
LDA 
CMP 
BEQ 
JSR 
STA 
LDA 
STA 
JMP 
LDY 
LDA 
CLC 
ADC 
STA 
INY 
LDA 
ABC 
STA 
RTS 
LDA 
STA 
LDA 
STA 
INY 
LDA 
STA 
INY 
LDA 
STA 
JSR 
LDA 
STA 
LDA 
STA 


FIN1LDA 


STA 
LDA 
STA 
LDY 
JSR 
LDA 
SEC 
SBC 
STA 
LDA 
SBC 
STA 
LDX 
BNE 


FINOJSR 


FIN 
R3 


R4 


R4O 


RTS 
JSR 
LDY 
LDA 
CMP 
BNE 
JSR 
LDA 
BEQ 
DEC 
LDA 
SEC 
SBC 
STA 
LDA 
BEQ 
LDY 


L1 
Sa 


CTAB2),Y 


CTAB2) ,Y 


TAB2 
VP 


CTAB2),Y 
TAB2+1 
vP2 


TAB2 
S42 
TAB2+1 
$43 


CTAB2),Y 
N1 


(TAB2) ,Y 
N2 


(TAB2),Y 
#1 

FINO 
S40 

S1D 


(TAB2),Y 


#1 
(TAB2),Y 


(TAB2),Y 
#0 
CTAB2),Y 
#2 
{TAB2),Y 


N1 
({TAB2),Y 


31ERE LETTRE TROUVEE 


;:2EME LETTRE TROUVEE 
3SP -> ADRESSE DU TABLEAU SUIVANT 


:ON CONTINUE LA RECHERCHE 


:ON AJOUTE A TAB2 LE N@MBRE 
:D’OCTETS OCCUPES PAR LE TABLEAU, 
: DONNE L'’ADRESSE DU TABLEAU SUIVANT 


: DESTINATION DU ‘“iMOVE" 


:N1/N2 -> NBRE OCTETS SUPPRIMES 


; DEBUT DE LA ZONE A DEPLACER 


:FIN DE LA ZONE A DEPLACER 


: MOVE 


:M.A.J. POINTEUR “FIN ZONE TABLEAUX" 


;8N EST DEJA EN FIN D'’INSTRUCTION 
:NISE EN FIN D'’INSTRUCTION 


:EST-CE BIEN UN TABLEAU A 1 DIM. 


:C’EST UN TABLEAU DE REELS 
; CALCUL NOMBRE OCTETS PAR ELEMENT 


sr 


:C’EST UN 
:M.4.J. NOMBRE D°’ELEMENTS 
:QUI DIMINUE DE 1 


:"M.A-J. NOMBRE OCTETS DU TABLEAU 
:QUI DIMINUE DE N1 
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cupés ainsi que le nombre d'élé- 153 INY 
ments dans là dimension. 154 LDA (TAB2),Y 
155 SBC #0 
» ete e. 
Mode d'utilisation 156 STA (TAB2),Y 
157 LDA VP 
Suppression 158 PHA 
st L 159 LBA vP2 
La syntaxe générale est “& Nom du 160 PHA 
tableau”, par exemple: &Q%. 161 JSR 540 ; NOUVELLE ABRESSE DU TABLEAU SUIVANT 
&RR$. &TG.. Si le nom comporte 162 STA 543 :DESTINATION DU MOVE 
plus de deux lettres. il ne faut mettre 163 LDA VP 
derrière "&” que les deux premières 164 STA $42 
et le type (&TA% pour TABLEAU% 165 PLA 
ar exemple). 166 STA $S3D :DEBUT DE ZONE A DEPLACER (ANCIENNE 
b Re d 167 PLA ;ABRESSE DU TABLEAU SUIVANT) 
n peut utiliser des instructions du 168 STA 530 
type : 169 JMP FINI 
10 BIM A$(10.2). BB(25) : CY%(0) 170 RS LDY #6 
= 2 171 LDA (TAB2),Y ;NRRE ELEMENTS AUGMENTE DE 1 
20 &AS : &eB &CY% ue FR re 
7 O7 
30 DIM A$(55). CY%(10.20). ee STA (TAB2),Y 
Îl est indispensable que le tableau ait 175 DEY 
été effectivement créé avant sa sup- 4. LA at 
pression, soit par une instruction nuls se ES Ÿ 
DIM. soit par l'affectation d'une va- 179 LDY #2 ’ 
leur à un élément d'indice inférieur à | 180 LDA (TABZ),Y :NBRE OCTETS AUGMENTE DE N1 
10 (dimension par défaut). Sinon. le 181 CLC 
système s'embarque pour un voyage 182 ADC N1 
sans retour ! 183 STA {TAB2),Y 
184 INY 
Modification de la dimension 185 LDA (TAB2),Y 
La syntaxe est ”’& Nom du tableau Le . Ra y 
+7 pour ajouter un élément 188 CHATS EU 
(&AAŸ+, &CT%+ .) et “& Nom | 189 STA L2 ; ANCIENNE FIN ZONE DES TABLEAUX 
du tableau —" pour en enlever un 130 STA N2 :NOUVELLE FIN ZONE DES TABLEAUX 
(&SF-, &VV— ..). 191 LDA S6D 
Comme précédemment, le tableau 192 STA Li ;ANCIENNE FIN 
doit effectivement avoir été créé, 193 CLC 
d'une façon ou d'une autre, mais il Fe 2 is 
doit en sus ne comporter qu'une : 
seule dimension pour que là routine ne Fe. ee FNCRMERLES ES 
produise les résultats espérés. 198 INC $6E 
ll est possible de réduire la dimen- re de se “< 
sion jusqu'à ce quil ny ait plus | 26: »6o LDA tL19,Y  :“MOVE" VERS LE HAUT 
aucun élément dans le tableau, mais 202 STA (N1),Y 
les 7 octets de définition (lettres...) 203 LBA L2 
seront toujours là. Ainsi, la ligne sui- | 204 CHP VP2 ;VP/VE2 -> ANCIENNE ADRESSE DEBUT 
vante provoquerait une erreur : 205 BNE R8 ;:DU TABLEAU SUIVANT QUI MARQUE LA 
10 DIM A(5) : FOR I=5 TO O STEP | 225 ee FR DINRE AE ONE PERCERER 
—1. &RA- . NEXT: DIM A(20) 208 BNE R$ 
Il suffit d'insérer ’&A" entre le NEXT 209 JMP FINO 
et la nouvelle instruction DIM pour 210 R& BEC Li 
que tout se passe bien. 2. LDA Li a 
1 CMP #5 
Il est en revanche parfaitement possi- 213 RBNE R7 
ble d'écrire : 214 DEC L2 
10 DIM AIS) FOR ES TO DSTER. 1272 7 PES 
—1: &A-—:NEXT:FORI=8 TO 5: 17 SH Re 
Le programme de démonstration listé 2e. fe _. 
ci-après présente de nombreux 221 DCM INT" 
exemples d'application. = 222 END 
Programme DIM.VAR.OBJ 9298- OO DO 04 E6 1B DO 35 C9 
92A0- 24 FO 11 C9 25 FO 33 C9 
927C- A4 6B 84 18 92A8- C8 FO 2i C9 C9 FO 20 95 
9280- A4 6C 84 19 AO O5 84 O8 92B0- 06 E8 DO E2 E6 1D AS 07 
9288- A2 00 86 07 86 1B 86 1C 92B8- O9 80 85 O7 AO O1 B1 B8 
9290- 86 1D 86 O9 FO 19 20 B1 92C0- 20 BA OO FO OF 20 B1 O0 
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92C8- C9 C8 DO 03 4C 50 93 E6 
92D0- 1C 4C 50 93 20 ES5 92 4C TNVTES 
92D8- 11 93 E6 1D A5 06 O9 80 ; . ‘ 
92E0- 85 06 4C B4 92 AO O0 B1 est - il entier : 
92E8- 18 C5 06 DO 07 C8 B1 18 # 
92F0- C5 07 FO.1C 20 O0 93 85 
92F8- 19 AS 1A 85 18 4C ES 92 
9300- AO O2 B1 18 18 65 18 85 
9308- 1A C8 B1 18 65 19 85 1E 
9310- 60 AS 18 85 42 A5 19 85 
9318- 43 C8 B1 18 85 08 C8 B1 
9320- 18 85 09 20 O0 93 AS 1A 
9328- 85 3C AS 1E 85 3D AS 6D 
9330- 85 3E AS 6E 85 3F AO 00 
9338- 20 2C FE AS 6D 38 ES5 O8 
9340- 85 6D AS 6E ES O9 85 6E 
9348- A6 1B DO O3 20 B1 O0 60 
9330- 20 ES 92 AO O4 B1 18 C9 93B0- 88 B1 18 69 O0 91 18 AO 
9358- O1 DO F1 20 OO 93 AS 1D 93B8- 02 B1 18 18 65 08 91 18 
9360- FO 09 C6 O8 AS 08 38 ES 93C0- C8 B1 18 69 OO 91 18 AS 
9368- 1D 85 O8 AS 1C FO 38 AO 93C8- 6E 85 07 85 09 A5 6D 85 
9370- 06 B1 18 38 E9 O1 91 18 93D0- 06 18 65 08 85 6D 85 08 
9378- 88 B1 18 E9 OO 91 18 AO 93D8- 9O O4 E6 6E E6 O9 AO 00 
9380- 02 B1 18 38 ES O8 91 18 93E0- B1 06 91 08 AS 07 C5 1E 
9388- C8 B1 18 E9 OO 91 18 A5 93E8- DO O9 A5 06 C5 1A DO 03 
9390- 1A 48 AS 1E 48 20 O0 93 93rF0- 4C 4C 93 C6 06 AS 06 C3 
9398- 85 43 AS 1A 85 42 68 85 93F8- FF DO O2 C6 07 C6 08 AS 
93AO- 3D 68 85 3C 4C 2E 93 AO 9400- 08 C9 FF DO DB C6 O9 4C 
93A8- 06 B1 18 18 69 O1 91 18 9408- EO 93 
1 REM DEMO DIM VARIABLE MENT NO “Z* ‘;: INPUT AAS(2): 
2 REM *Ssssssss=======- GOTO 80 
200 PRINT : PRINT : FOR I = O TO 
S HIMEM: 374993 Z: PRINT AAS(I): NEXT : GET 2 
10 PRINT CHRS (4)"BLOAD DIM.VAR. S: PRINT : PRINT 
OBJ'": POKE 1013,76: POKE iO14 210 & CC%x: DIM CCx(O) 
,7 » 16 + 12: POKE 1015,9 *# 1 220 FOR I = 1 TO 20: & B + :B(I) 
Gre52 2 # I: & CCX + :CCXCI) = 10 »* 
20 DIM B(S),TS(1),CC%x(2,3),TTS(10 1: NEXT : FOR I = O TO 20: PRINT 
) B(I),CC%(I): NEXT : GET 2S: PRINT 
30 FOR I = O TO S5:B(I) = 1000 * I : PRINT 
: NEXT : FOR I = O TO 2: FOR 230 & TTS: FOR I = O TO 4:TTS(I) 
J = O TO 3:CCX(I,J) = I * J: NEXT "NOUVEAU TTS ‘ + STRS (I): NEXT 
: NEXT : FOR I = O TO 10:TTS( 
1) = "TABLEAU TTS “ + STRS ( 240 FOR I = 20 TO 10 STEP - 1: & 
1): NEXT B - : & CC%x - : NEXT : FOR I 
40 TS(O) = “PRE-CREE O":TS(1) = “"P O TO S: PRINT B(I),CC%*(I): NEXT 
RE-CREE 1": FOR I = 2 TO 20: & 
TS + :TSCI) = “"CREE NO “ + STRS 250 & AAS: DIM AAS(O) 
C1): PRINT FRE (O): NEXT : FOR 260 FOR I = 1 TO 450: & AAS + :AA 
1 = O TO 20: PRINT TS(I): NEXT SCI) = “"AAAAAAAAAAAAAAAAAAAAA 
AAAAAAAAAAAAAAAAAAAAAAAAAAAAA 
50 GET ZS: PRINT : FOR I = 20 TO AAAAAAAAAAAAAS * + STRS (I): 
6 STEP - 1: & TS - PRINT FRE PRINT AAS(I)" ‘“;: PRINT FRE 
(CO): NEXT : FOR I = O TO 5: PRINT (CO): PRINT : NEXT 
TS(1): NEXT 270 FOR I = 450 TG 1 STEP - 1: & 
60 GET 2S: PRINT : PRINT : & B: DIM AAS - : PRINT FRE (O0): NEXT 
AAS(O),B(O) : PRINT : FOR I = O TO 3: PRINT 
70 INPUT “1ER ELEMENT ‘': AAS(O) B(I),CC%X(I): NEXT 
80 INPUT “UN AUTRE : “;2S: IF 2S = 280 FOR I = O TO 4: PRINT TTS(I): 
“N‘“ THEN 200 NEXT 
930 Z = Z + 1: & AAS r PRINT ‘“ELE 
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Faisant suite à l'article de Guy Ma- 
thieu. relatif à l'ergonomie des pro- 
grammes. paru dans Pom's 6, voici 
une routine en langage machine qui 
viendra en aide aux programmeurs 
soucieux de créer des logiciels ami- 
caux. J'attaque ici un problème qui 
n'a guère été soulevé dans l'article 
précité : le traitement des erreurs. 

Le premier type d'erreur, le fameux 
“bug” qui ne surviendra qu'après 
quelques mois d'utilisation du pro- 
gramme, sera facilement éliminé 
grâce au programme d'analyse sun- 
taxique d'Olivier Herz (cf. Pom's 6). 
Par contre. il est difficile de prendre 
en compte, et surtout de prévoir, les 
erreurs de manipulation éventuelles 
de la part de l'utilisateur. Je ne 
connais rien de plus désagréable que 
de voir un programme stopper son 
exécution en plein travail par un ‘1/0 
ERROR", un "DISK FULL” ou que 
sais-je encore... 


C'est pour éviter ce genre de désa- 

gréments que l'Applesoft met à votre 

disposition l'instruction "ONERR 

GOTO”, qui permet de ‘piéger’ 

toutes les erreurs du DOS, celles du 

BASIC. et même ta frappe au clavier 

du fameux ÆCTRL-C. Mais le 

"ONERR GOTO" souffre de deux 

défauts majeurs : 

e il nempêche pas l'arrêt du pro- 
gramme par un RESET volontaire 
ou accidentel 

e si un trop grand nombre d'erreurs 
successives est traité, le désordre 
qui apparaît au niveau du poin- 
teur de pile provoque un blocage 
du système (voir page 136 du ma- 
nuel Applesoft). 


Pour ces raisons, il m'a semblé utile 
de créer une routine de “ONERR 
GOTO"” étendu. traitant ces deux 
problèmes. 


Principes généraux 


L'Apple dispose d'une routine de 
RESET appelée par l'intermédiaire 
d'un vecteur . baptisé SOFTEV. situé 
en page 3 aux adresses $3F2 et 
$3F3 (1010-1011). En modifiant le 
contenu de ces deux adresses. on 
peut envoyer le RESET à nimporte 
quelle adresse au sein de la mémoire 
de l'ordinateur. Pour signifier à l'Ap- 
ple de ne pas effectuer un ‘départ à 
froid”, il faut en outre stocker le ré- 
sultat du ‘ou exclusif” entre le 
contenu de $3F3 et la valeur $A5 en 
$3F4, ce que la routine du moniteur 
SETPWRC ($FB6F) fera pour nous 
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0 OO NO Ut à UN — 


NOM OK ON OK OK OK NX XX Ke 


& ON 


AVEC EXTEN 


COPYRI 
DIMITR 


HR MR MMM MMM DEN MEME DE DE DE ME DE HE ME ME 6 À 6 6 NE XXE NE 


Mu ns we us un ee 08 ds de 


& ONERR GOTO 


ERR GQTO 


SION AU 


GHT 1983 
J AUER 


*RESET”’. 


TRAITEMENT D'ERREUR APPLESOFT 
‘RESET’ 


SYNTAXE: & ONERR GOTO (NL#1. 


Dimitri Auer 


APPLE TOO! KIT EDITOR ASSEMBLER 
DD DD DE DH DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE HE HE D JE HE 26 JE JE JE 


L 


+ 
+ 
+ 
+ 
+ 
+ 
+ 
+ 
+ 
+ 


EFFECTUE LES MEMES OPERATIONS QUE 

LE CLASSIQUE ONERR GOTO DE L’APPLESOFT 
MAIS S’APPLIQUE AUSSI À L'’ENFONCEMENT 
DE LA TOUCHE 


LI GNE) 


TOKEN DE ONERR 
TOKEN DE GOTO 


ADRESSE VERS LAQUELLE POINTE L’APPEL 
POINTEUR DANS LA LIGNE COURANTE APPL 
NLMIERO DE LA LIGNE EN EXECUTI ON 
POINTEURS ONERR 

FLAG D’ACTIVITE DE ONERR 

VECTEUR OÙ RESET 

VALEUR DU POINTEUR DE PILE 

DE L’ERREUR. 


CAPTE LE CARACTERE SUIVANT DANS LA L 
‘SYNTAX ERROR’ 

REAJUSTAGE DES VECTEURS DE RESET 
DEPLACE TXTPTR EN FIN D'INSTRUCTION 


ORG +$300 
, 
5 CONSTANTES 
D 
Li 
ONERR EQU $#$AS 3 
GOTO EQU $AB ; 
RESTORE EQU $ÂAE 
» 
; VARIABLES 
D 
, 
EXTLOC EQU #$3FS ; 
TXTPTR EQU #%BB 3 
CURLIN EQU #$75 3 
ERRPTR EQU $F4 3 
ERRFLAG EQU $DB ; 
SOFTEV EQU #$3F2 ; 
ERRSTK EQU $DF } 
3 AVANT L'APPARITION 
; 
; 
3 
; ROUTINES EXTERNES 
D 
3 
CHRGET  EQU $00B1 3 
SNERR EQU $DEC9 ; AFFICHE 
SETPWURC EQU $FBéF 3 
DATA EQU $D995 ; 
; 
; 
, 
; MISE EN PLACE DES VECTEURS & 
L 
LDA ##$4C ÿ JUMP 
STA  EXTLOC 
LDA  H> START 
STA EXTLOC+1 
LDA  #<START 
STA EXTLOC+2 
RTS 


PROGRAMME PRINCIPAL APPELLE 


; 
; 
; 
; PAR CHAQUE 
y 
START CMP 
BEQ 
etP 
BNE 
8ER 


EMPLOI DE 


#ONERR 
TEST2 
HRESTGRE 
ERR 
STACK 


12 


AMPERSAND & 
TOKEN ONERR ? 
BEUXIEME POSSIBILITE ? 


S1 NON ERREUR 
TRAITE & RESTORE 


vote te 4 MISE 





SSSR 
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L'astuce utilisée ici consiste à revec- 
toriser le RESET vers la routine de 
traitement du ‘SYNTAX ERROR' 
Chaque RESET sera alors interprété 
comme une erreur de syntaxe et 
pourra être capté aisément par 
ONERR GOTO. 


Le programme 


Il est évident que cela pourrait être 
effectué directement à partir du pro- 
gramme Applesoft par une série de 
POKESs et un CALL. Mais comme il 
sera bon. de toutes façons. d'utiliser 
la routine d'erreur préconisée par le 
manuel Applesoft. autant inclure le 
tout dans un petit utilitaire 

Pour conserver la souplesse du 
BASIC. nous utiliserons l'ampersand 
(&}) pour appeler la routine en lan- 
gage machine. 


La première partie de cette routine 
met en place les vecteurs nécessaires 
à & en $3F5-$3F6 (lignes 58 à 64). 
À chaque appel de &. on passera 
ensuite directement à la seconde par- 
tie {ligne 67). 


Descriptif du programme 
principal 


e Lignes 67-77 : teste la syntaxe de 
l'appel soit & ONERR GOTO. soit 





75 TEST2 JSR CHRGET 5 INSTRUCTION SUIVANTE 


76 CMP  #HG@Te ; TOKEN G8Te ? 

77 BEQ OK 

78 ; 

4 ERR JMP  SNERR ; ENVOIE LE MESSAGE D ‘ERREUR 

4 

81 ek JSR CHRGET ; AVANCE TXTPTR 
82 LDA  TXTPTR 

CR] STA  ERRPTR 

84 LBA TXTPTR+I 

85 STA  ERRPTR+: 

gé LBA CURLIN 

87 STA  ERRPTR+2 

88 LDA  CURLIN+1 

89 STA  ERRPTR+2 

98 ; 

91 LDA 4580 

2. STA  ERRFLAG ; ACTIVATION DE @NERRG@TO 

, 

ya LSA  #>SNERR ; REVECTERI SATION 
95 STA S@eFTEV ; DU 

vé LDA  H<SNERR ; RESET 

97 STA  S@FTEU+1 

CE JSR  SETPUREC 

ç9 JMP. DATA ; FIN 

180 ; 
F01 ; 

102 ; DEUXIEME PARTIE: & REST@RE 
103 ; REAJUSTE LE POINTEUR DE PILE 
104 ; AFIN D’EVITER LE ‘PLANTAGE’ 

195 ; DU SYSTEME PAR SUITE D'ERREURS 

10é ; REPETEES. 

107 ; 

108 ; A UTILISER DANS LA SECTION DE TRAITEMENT 
109 ; DE L’ERREUR PAR UN & REST@RE 

110 : 
111 STACK PLA ; SAUVEGARDE 
112 TAY ; DES REGISTRES 





& RESTORE. Si ONERR GOTO). 113 PLA 
branchement à OK Si RESTORE. 114 LDX ERRSTK *REQJUSTAGE OÙ P@INTEUR 
saut à la deuxième partie (traite- 115 TXS ; DE PILE 
ment de pile) En cas d'échec des ité PHA 3 REGENERAT I ON 
deux comparaisons. saut à la rou- Hi 1 ; De cu 
re Us Don 119 JMP_ DATA ;FIN ET RETOUR AU BASIC 
gramme. 
e Lignes 81-99: activation de 
ONERR GOTO et mise en place teur de pile à la valeur précédant tement d'erreur afin de reconnecter 
des nouveaux vecteurs de RESET l'apparition de Pied (voir ma- le DOS après un éventuel RESET. 
Sortie via la routine DATA qui nuel Applesoftl. Cette section est : 2 
place le pointeur de ligne Apple | _ appelée par & RESTORE a ee eee 
soft en fin d'instruction (recherche Remarque: les utilisateurs de dis- mode d'utilisation de cette routine 
un : ouun © de fin de ligne) quettes auront à inclure un CALL é 
e Lignes 111-119 : réajuste le pein- 1002 au sein de leur routine de trai- L 
Récapitulation 10 REM 
DEEE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE DE EEE EX EE 
# # 
# & ONERR BEMO # 
*300.35D * (CC) 1983 DIMITRI AUER * 
# # 
0300- À9 4C 8D F5 03 A9 10 8D DEEE DE DE DE DE DE DE DE DE DE DE DE DE DE DEEE EN DEEE EEE XX 
0308- Fé 03 A9 03 8D F7 03 60 20 REM 
0310- C9 ÀS FO 06 C9 AE DO 09 30 REM PFLOT HARGEMENT BE LA ROU 
0318- F0 31 20 B1 00 C9 AB F0 TINE 
0320- 03 4C C9 DE 20 00 A5 40 PRINT  CHRS (42*BRUNAMPER. ONER 
0328- B8 85 F4 AS B9 85 F5 A5 RE0ETe 
0330- 75 85 Fé A5 76 85 F7 A9 Nate Ventes NeEr 
0338- 80 85 D8 A9 C9 8D F2 03 ee 
0340- A9 DE 8D F3 03 20 6F FB DEEE DE DE DE DE DE DE DE DE DE DE DE DE DE DE EEE EE EX EX 
0348- 4C 95 D9 68 À8 68 A6 DF x x 
0350- 94 48 98 48 4C 95 DS DO x PROGRAMME PRINCIPAL x 
0358- DA Eé 01 4C 33 03 x % 


RESHESRANNAENEUENSES 
AÉBSBRSNNNNENNE PIN RATES RER 
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x * 320 GOTO 260: REM BOUCLAGE 
RH XX XX NE NE NE JE DE JE DE DE DE DE DEEE EEE EX 330 REM 
210 TEXT : HOME 999 REM 
215 INVERSE FOR 1 = 1 TO 40 *x 3 ES 
PRINT * *;: NEXT NORMAL * * 
220 VTAB 2: HTAB 13: PRINT “ & @N * ROUTINE DE CAPTAGE DE * 
ERR DEMO * * L'ERREUR * 
240 PRINT : PRINT PRINT *LIST20 % * 
00,2010": PRINT LIST 2000,2 JE XD DE DE DE HE JE DE DE JE DE DE JE DE JE DE DE JE DE JE DEEE JE EX À 
010 
250 VTAB 21: INVERSE : PRINT °ESS 1000 &  RESTORE REM REMET À JO 
AYEZ DE STOPPER LE PROGRAMME UR L POINTEUR DE PILE 
PAR CTRL-C OU RESET. ENFO 1005 CALL 1002: REM ET EN PLACE L 
NCEZ LA TOUCHE ‘S°7 POUR EXECU ES VECTEURS 
TER LA LIGNE 2010. 1006 REM DU DOS EN CAS DE RESET 
He 1007 HOME UTAB 12: NORMAL 
255 NORMAL 1008 FOR I = 1 TO 20:X = PEEK «4 
260 POKE - 14368,0 9200}: NEXT 
270 VTAB 18: HTAB 15: PRINT “PAUS 1010 PRINT "ERREUR!!!" 
E..." 1020 PRINT PRINT *“CODE:" PEEK «{ 
280 FOR PA = 1 TO 1000: NEXT PA 222) 
290 VTAB 18: HTAB 15: PRINT ‘ 1030 PRINT "LIGNE NO:" PEEK (218) 
“ + 2936 *x PEEK (219) 
295 FOR Ï = 1 TO 10 1040 POKE - 16368,0 
300 X = PEEK € —- 16384) - 128 1050 PRINT GET R#: GOTO 200 
310 IF X = ASC ("S*") THEN 2000: REM| 2000 REM EXEMPLE D’ERREUR 
PRODUIT L'ERREUR 2010 PRINT LOAD : REM 
315 NEXT MOT RESERVE 


Lorsqu'un programme BASIC utilise 
un où plusieurs programmes en lan- 
gage machine, la méthode la plus 
courante consiste à charger ceux-ci 
dans la page 3. ou en fin de mé- 
moire vive, par des BLOAD 

Cette méthode présente deux incon- 
vénients : 


1) perte de temps au moment du 
chargement en mémoire . 
2} perte de place sur la disquette 


Incorporer le programme machine à 
la fin du programme BASIC est une 
autre méthode répandue. Il y a deux 
avantages. D'une part. le chargement 
se fait en une seule fois. donc gain 
de temps. D'autre part. la copie sur 
disquette où cassette est plus simple. 
Inconvénient si l'on veut modifier le 
programme BASIC. il faut recom- 
mencer toute la procédure. 


Rajouter un programme machine à la 
fin d'un programme BASIC suppose 
l'exécution des opérations suivantes : 
1) charger le programme BASIC 

2) prévoir les modifications des 
adresses d'appel des sous-program- 
mes 
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Programme assembleur 
à la fin d’un programme BASIC 


3) chercher la fin du programme 
BASIC par un PRINT PEEK(175) + 
256*PEEK(176) 

4) charger le programme binaire à 
cette adresse 

5) modifier les adresses d'appel dans 
le programme BASIC. Attention, ceci 
ne doit pas modifier la longueur éu 
programme BASIC. 

6) Positionner le pointeur de fin de 
programme à la fin du programme 
binaire. 

7) Sauver le programme (sous un 
autre nom par précaution), 


Bien que ces opérations soient par- 
faitement réalisables à la main. elles 
sont fastidieuses et une erreur est 
toujours possible. Il est donc plus sûr 
d'automatiser tout le processus 
comme nous vous le proposons ici 


Le fichier INCEUSION 


Ce fichier EXECutable vous de- 
mande le nom du programme 
BASIC. sauvegarde ses pointeurs. 


modifie les adresses de chargement 
du BASIC et charge le programme 
APPEND-PROG à l'adresse $6000 


Roland Jost 


APPEND-PROG 


Ce programme Applesoft. chargé par 
INCEUSION. vous demande le(s) 
nom(s) du ou des programmes binai- 
res à utiliser. Taper RETURN siül nv 
en à plus. 

Après exécution de APPEND-PROG. 
il ne vous reste plus qu'à sauver 
voire programme BASIC. qui engto- 
bera les routines en langage ma- 
chine 


Pour que l'opération se déroule nor- 
malement. il est nécessaire d'insérer 
dans les premières lignes de votre 
programme Applesoft une instruction 
du type : 


P1 = 55555 P2 = $$$$$ : .. Pn 
= SSSES 


P1...Pn étant les noms de vos sous- 
programmes binaires. Attention les 
mots réservés du BASIC ne doivent 
pas être utilisés 


Les sous-programmes devront être 
appelés par des CALL P1... CALL 
Pn 


Dans le cas d'une table de formes . 
utiliser une instruction telle que : 





RS  _______ _* 
LEE TT EN EN ESS MORT ET DU ES robes er ds 
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SHAPE = $$$$$: POKE 233. 
SHAPE / 256: POKE 232. SHAPE - 
PEEK(233) « 256 


Pour une bibliothèque de program- 
mes utilisant & (Ampersand). insé- 
rer 


LIB = $$$$$ POKE 1013. 76: 


INV 


Certains BASICSs. ainsi que PLE 
possèdent une fonction permettant 
l'inversion d'une chaîne de caractè- 
res. Le programme assembleur INV 
réalise cette opération sur une chaîne 
ayant au plus 127 caractères. 


Appel par: CALL 768.A$ (CALL 
768nom de la chaine) 


STRING 


Cette fonction existe dans certains 
BASICs. Elle permet d'afficher n fois 
la même chaîne de caractères. 


POKE 1015. LIB/256 POKE 1014. 
LIB - PEEK(1015}+ 256 


Si vos routines ne sont pas relogea- 
bles. reportez-vous à l'article de Phi- 
lippe François dans Poms 7 ou 





faites les modifications nécessaires Programme INV 
avant la sauvegarde du programme 
complet 0300- 20 BE DE JSR SDEBE teste la virgule 
0303- 20 E3 DF JSR SDFE3 : recherche variable 
0306- 85 FA STA SFA ‘: sauve les pointeurs 
0308- 84 FB STY SFB 
0304- AO O0 LDY #S00 
Quelques détails O30C- B1 FA LDA  (SFA),Y 
O3O0E- 85 FC STA SFC : sauve la longueur 
EXEC INCLUSION 0310-  c8 INY 
0311- y 
# HOME: INVERSE. PRINT ‘INCLU- ©0313 ne D 4 
SION DE PROGRAMMES ASSEM- 0314- ca INY 5 
BLEUR A LA FIN D'UN PRO-  6315-  B21 FA LDA  (SFA),Y 
GRAMME APPLESOFT NOR-  0317- 85 FE STA  SFE : sauve l'adresse 
MAL : PRINT 0319- 68 PLA : 
POKE 118.0: POKE 436990 O31â- 85 FD STA SFD : 
INPUT “NOM DU PROGRAMME 031C- A4 FC LDY SFC : on balaye la chaine 
APPLESOFT :':N$: POKE 436991 031E- 88 DEY ; 
Cette ligne mérite quelques explica- DOAEE B1 FD LDA ds s 
tions. L'adresse 118 ($/6. baptisée ei sue 
SR le AA 0323- 10 FA BPL  S031F  : fin de chaine ? 
l'interpréteur. Ceci permet d'exécuter es ne Fe SE FH ; Fe nn 
des commandes INPUT. GET en Dan a PILA = . “ nur 11 
mode immédiat sans le fatidique ‘IL- 0329- 91 FD STA (SFD) ,Y OT Lee Mu 
LEGAL DIRECT ERROR* POKE DE NS oe DEV ! 
436990 permet de déconnecter la 032C- 10 FA API. “É0428 
commande EXEC. A la fin de l'ins- O32E. éD RTS 


truction. un POKE 43699 1 rend la 
main au fichier EXEC 


PRINT CHRS$(4) "LOAD * N$ 
POKE 26. PEEK(175): POKE 27. 


PEEK(17/6) 

on sauve ladresse de fin de pro- 

gramme | 
POKE 103. 1 POKE 104 #6. Programme STRING 


POKE 24576.0 


modifie l'adresse de chargement d'un 0300- 20 BE DE JSR  SDEBE : teste la virgule 
programme APPLESOFT 0303- 20 F8 E6 JSR SE6F8 : {value la formule 
RUN APPEND-PROG 0306- 86 06 STX 506 : sauvegarde de la valeur 
0308- 20 BE DE JSR SDEBE : teste la virgule 
ere CS 22 CMP #S22 : est-ce un “* 
O30D- DO O5 BNE S0314 : 
APPEND-PROG 030F- 20 81 DE JSR SDE81 : saisie de la chaine 
Le sous-programme en langage ma- 0312- DO O4 BNE  SO3SIE : 
chine implanté en page 3 permet. au 0314- 20 E3 DF JSR SDFES : recherche la variable 
terme de l'exécution. de redonner 0317- 20 6C DD JSR SDDEC : ce doit ‘tre une chaine 
aux pointeurs Applesoft des valeurs O314- 85 AO STA  SAO 
ndardé 031C- 84 A1 STY  SAl : 
031E- 20 3D DB JSR SDB3D : affiche la chaine 
Pour tester la procédure , nous vous O321- C6 06 DEC 506 
proposons d'utiliser le programme 0323- DO F9 BNE  S$031E : on recommence ? 
ESSAI-INCLUSION comme  pro- 0325- 20 B7 O0 JSR $00B7 : 
gramme Applesoft. Les sous-pro- 0328- C9 3B CMP  #S3B : teste le point-virgule 
grammes nécessaires sont INV (inver- O32A- DO O4 BNE S0330 : 
sion de chaînes de caractères) et 032C- 20 Bi 00 JSR S00B1i 
STRING {affiche x fois une chaîne). 032F- 60 RTS 
Is vous sont offerts ‘en prime” ! 0330- 4C 8E FD JMP SFD8E : retour chariot 


ANNEE 
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235 RANDUITUAERE 
SERRES FÉDARIMANE 


Appel : 


CALL 768n.A$ 


CALL 768.n.' chaîne” 


REMARQUES IMPORTANTES 


1 - les noms de vos sous-program- 


au maximum en combinant les lignes 
et en supprimant les remarques. Si 
nécessaire . nutilisez que la page 


CALL 768 n.Af$: mes ne doivent pas se terminer par graphique 2. 

CALL 768 n. chaîne’: un $. 

Le point virgule évite un retour cha- 2 - Attention aux pages graphiques. 

riot après l'affichage. Condensez votre programme BASIC [| 





100 REM PROGRAMME APPEND 
101 REM sssssssesss 
110 PRINT 
120 DEF FN PECX) = PEEK {X) + 2 
56 *# PEEK (X + 1) 
130 DS = CHRS (4):GS = CHRS (7) 
140 AF = FN PE(26) 
145 FF = AF * (AF « = 2200) + 220 
O #* CAF > 2200) 
1530 OÈONERR GOTO 430 
160 GOSUB 250 
170 HOME : FOR I = O TO K: PRINT 
BSCI)S:INEXT LS "PRINT SOIF" KT= 
©O THEN PRINT “ EST'";:: GOTO 1 
90 
180 PRINT ‘“SONT‘'': 
1930 PRINT ‘“ MAINTENANT INCLUS A V 
OTRE PROGRAMME BASIC. LES APP 
ELS £CALL) DE VOTRE PRO 
GRAMME BASIC ONT ETE MIS A JO 
UR= 
200 PRINT : PRINT : PRINT ‘ VOUS 
POUVEZ LISTER VOTRE PROGRAMME 
ET LE SAUVER SOUS LE NOM 
QUI VOUS CONVIENT." 
210 DATA 169;,,1,133,103,169;8,13 
3,104;1695;26;:133;175;133;105; 
169,27::133;176;:133,;106;96 0 
220 FOR I = O TO 21: READ DA: POKE 
768 + I,DA: NEXT I 
230: :CALL 768 
240 END 
23530 REM RECHERCHE DES SOUS-PROGR 
AMMES 
260 FOR I = 2048 TO FF: IF PEEK 
CI) < > 208 THEN 400 
270:. IF PEEK CI + 19°:< > 36 OR: ‘PEEK 
CE #5 2%: 9:86: OR; ‘PEEK-<€I:# 
3) < > 36 OR PEEK {I + 4) « 
> 36 OR PEEK (I + 5) < > 3 
6 THEN 400 
280: FOR 9: = TL =.1 TO:.1 ;- 14. STEP 
= 12 IF: PEEK::J)- < 65: THEN 
KA EN RAT SLT 211 
290% -NEXT- TJ 
300:BS = ""!": 
310 FOR N = K1 TO I - 1:BS = BS + 
CHRS € PEEK CN): NEXT N 
340 REM CHARGEMENT DES SOUS-PROG 
RAMMES 
350 PRINT : PRINT BS" CHARGE A L 
* ADRESSE ‘'AF 
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360 PRINT DS'"BLOAD ‘‘BS‘“,A'"AF 

270 BE(V) = Ré 

380 AFS = RIGHTS (*‘ UE TYSTRS 
CAF)Y,59)%: FOR:L. = 1 T9O::5:::POKE 
I + L,- ASC K MIDS: CAES, L,193: 

NEXT LI = I + 1 

390 LG = FN PE(43616):AF = AF + L 
G: POKE 27,AF / 256: POKE 26, 
AFr=  JPEEK: (27) «x 256:K = 1K: + 
1 

400 NEXT I 

410 RETURN 

420 REM TRAITEMENT D'ERREURS 

430 IF PEEK (222) = 6 THEN FLASH 
: PRINT GS;:GS"CE FICHIER N’EX 
ISTE PAS": NORMAL : GOTO 210 

449 FLASH : PRINT GS:GS"ERREUR D’ 
EXECUTION ‘“: GOTO 210 

100 REM PROGRAMME DE TEST APPEND 

101 REM 

110 HOME 

120 INV = SSSSS':STRING = sssss 

ISO VS EE CÉHRS: 09191 + CT PELCGALLIST 
RING,20,VS: 

140: FOR-3. =. 1 TO:19’ HTAB 1: :CALL 
STRING,1,VS:: HTAB 38: CALL S 
TRING,1,VS;: NEXT J 

1530 CALL STRING,20,VS 

160 POKE 32,4: POKE 33,33 

170 VTAB 3: INPUT “VOTRE PRENOM ,, 

SVP ‘;AS 

180 CALL INV,AS 

130 VTAB 8: PRINT ‘MERCI ‘“:: INVERSE 
: PRINT AS: NORMAL 

200 FOR T = 1 TO 3000: NEXT 

210 PRINT : PRINT ‘OH! EXCUSEZ MO 
I “;:: INVERSE : PRINT AS: NORMAL 
: PRINT : PRINT “G’AI INVERSE 

ÉES "LETTRES" 

220 FOR T = 1 TO 3000: NEXT 

230 CALL INV,AS 

240 : PRINT : PRINT “VOILA,C’EST R 
ENTRE DANS L’ORDRE * 

250 PRINT : PRINT : HTAB 10: PRINT 
“AU REVOIR “;:: INVERSE : PRINT 
AS: NORMAL 

260 PRINT : HTAB 10: CALL STRING, 
10 + LEN ({AS),'"#" 

270 TEXT : VTAB 22 
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Carte langage 550 Speech card 390 
Carte 128 k ram 1800 Carte horloge 600 
Carte 80 colonnes 750 Joystick 200 
pa Interface série 650 Ventilateur 320 
HI Super série 1100 Contrôleur de drive auto switch 13/16 450 
- Interface parallèle 420 Microdrive 3" 2500 
35 Grappler + buffer 16 k 1500 Moniteur vert 12” 950 
5 Interface modem 2200 Disq uettes C5 1 V 4par 1boîte 180/boîte 
fi Carte Z 80 750 “_ Sboîtes 175/bôite 
Eh Witdcard 650 Le " “ 10boites 170/boîte 
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saisis sur votre APPLE sont envoyés directement sur notre photocom- 
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sition avant l'impression des documents, si vous le désirez nous pou- 
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Des trucs pour Apple Writer II et //e 


Mon propos dans cet article n'est pas 
de vous foumir un mode d’emploi 
d'Apple Writer il ou //e {il existe en 
effet une fonction Help avec “PO-?”, 
pomme ouverte et ”?” simultanés), 
mais de vous donner des trucs d’utili- 
sation indépendant les uns des 
autres. 


Azerty ou Qwerty ? 


Avec l'Apple //e, le choix entre le 
mode Azerty et le mode Qwerty n'est 
pas forcément évident. Quand on 
doit souvent taper des chiffres, il peut 
être préférable de taper en Quwerty 
(pour avoir les chiffres en minuscu- 
les) et d'utiliser les touches US per- 
mettant d'obtenir les caractères spé- 
ciaux français. les  accolades 
ouvrantes (6) et fermantes (è). l'arro- 
bas (à), la barre transversale inversée 
(ç). la barre vetrticale (ù) et le tide 
(trémai}. 


Le soulignement 


Le paramètre de souligné est par dé- 
faut le symbole ”’&”, ce qui est assez 
fâcheux, car on a facilement recours 
à ce symbole, d'où quelques souli- 
gnements inattendus. Avant d’impri- 
mer un texte, Vérifiez donc qu'il ne 
comporte pas de “&'” et modifiez le 
paramètre de souligné dans le cas 
contraire, en utilisant un caractère 
non employé dans votre fichier. 


Si votre imprimante ne possède pas 
de mode souligné, vous pouvez anni- 
hiler totalement l'option souligne- 
ment en entrant, une fois parvenu 
dans le mode de changement des 
paramètres d'impression (avec 
"CTRL-P ?”}, la séquence “PS” imé- 
diatement suivie de RETURN. 


Si votre imprimante possède un 
mode soulignement obtenu par des 
codes différents de ceux de l'impri- 
mante matricielle Apple. vous devrez 
entrer vous-même les séquences de 
début et fin de soulignement. Bien 
entendu, vous perdrez dans ce cas la 
justification pour les lignes où appa- 
raîtront ces symboles. 


La coupure des mots 


La touche CTRL-Z permet de bascu- 
ler entre la présentation des mots à 
l'écran, coupés ou non. L'intérêt de 
l'option "coupure" réside dans le fait 
que l'on voit alors plus clairement s’il 
n'y à pas de RETURNSs intempestifs 
à l'intérieur des paragraphes. Inverse- 
ment, la ’non-coupure” rend le texte 
plus lisible, quoiqu'à cet égard les 
opinions des utilisateurs puissent dif- 
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fêrer. En faisant "CTRL-Q G”, on 
bascule entre l'affichage ou non des 
retours chaïiot. 


Il y a une autre raison pour choisir 
l'un de ces deux modes : le déplace- 
ment vertical du curseur ne s'effectue 
pas de la méme manière pour cha- 
que mode. Ainsi, si l'on veut effec- 
tuer des corrections en fin de para- 
graphe, et en remontant dans le 
texte, il vaut mieux être en mode 
“coupure”. Par contre, pour remon- 
ter le curseur verticalement sans dé- 
calage latéral, le mode ‘non-cou- 
pure” est nécessaire. 


Le glossaire 


Vous n'utiliserez jamais trop souvent 
le glossaire. Si votre Apple Writer est 
un outil d'usage fréquent, vous pou- 
vez même avoir recours à plusieurs 
glossaires, chacun spécialisé pour 
une tâche précise (évitez cependant 
les confusions) On peut bien en- 
tendu mettre dans un gjlossaire un 
mot long tel que ‘’micro-ordinateur”, 
ou une fonnule de politesse comme 
"Veuillez agréer, Monsieur, ..”. C'est 
ainsi que certaines lectrices recoivent 
parfois de ma part des lettres aux 
formules douteuses. 


Pour utiliser le glossaire avec l'Apple 
lie, ne vous fatiguez pas à entrer 
"CTRL-G” suivi du caractère : il suf- 
fit de faire “PO” (pomme ouverte) et 
le caractère simultanément. 


La meilleure façon de concevoir des 
glossaires spécifiques consiste proba- 
blement à créer un noyau de glos- 
saire, contenant par exemple tous les 
caractères de contrôle de l'impri- 
mante (qualité coumier, compressé. 
caractères étendus. ..), qui servira de 
point de départ aux glossaires spécifi- 
ques. 


On peut - ne nous en privons pas - 
utiliser des commandes de glossaire 
incorporant des caractères de 
contrôle ou des RETURN. 


Caractères de contrôle 


Avec l'imprimante matricielle Apple, 
un ”’&” s'obtient avec la séquence ” 
CTRL-V CTRL-H CTRL-V e”, soit 
huit touches … L'idéal serait de créer 
cette séquence dans le glossaire, 
pour pouvoir l'appeler par exemple 
avec “PO-e”. Malheureusement, le 
glossaire refuse. dans son mode de 
création normal, la séquence "CTRL- 
V CTRL-H CTRL-V”, I faut alors 
sauvegarder le glossaire sur la dis- 
quette, puis le charger comme un fi- 
cher normal. On peut ensuite rentrer 


Hervé Thiriez 


la séquence de touches de la façon 
suivante :”  CTRL-L CONTROLV 
(CONTROLV est un fichier qui se 
trouve sur la disquette Apple Wiiter 
le) CTRL-V CTRL-H CTRL-V 
CTRL-L CONTROLV e. Le charge- 
ment de CONTROLUV place simple- 
ment un caractère CTRL-V, matéria- 
tisé par un V en inverse, à la place 
du curseur, tandis que la séquence 
"CTRL-V CTRL-H CTRL-V” permet 
d'obtenir un CTRL-H {soit un H en 
inverse à l'écran). Il ne reste qu'à 
sauvegarder ce fichier glossaire modi- 
fié. 

D'ailleurs, lors de la création ou de la 
mise à jour d’un glossaire, il est à la 
fois plus rapide et plus sûr de procé- 
der ainsi que de passer par ”CTRL- 
G ?” à chaque item. 


Insertion de RETURNSs 


Un retour chariot est indiqué dans le 
glossaire par le symbole ‘"$” en 
Azerty, et "Jen Qwerty. Ainsi, pour 
marquer le passage en mode 
compressé et le changement corres- 
pondant des marges avec mon 
Oki92, j'ai créé la commande de 
glossaire "PO-c”, directement à partir 
de ‘CTRL-G?”, en entrant ‘’c 
CTRL-V CTRL-X CTRL-V $ CTRL- 
V CTRLS CTRL-V $mgl0$8 md 
121$.jt”. CTRL-X annule le mode 
qualité courrier et CTRL-$ met en 
mode compressé. J'ai ajouté ici, pour 
faciliter la lecture, un blanc pour sé- 
parer les touches de contrôle, mais 
tout était contigu lors de la création 
de la commande. 


Fichiers tampons 


Plutôt que d'encombrer le glossaire 
avec des textes longs tels que formu- 
les de politesse, indication de chan- 
gement d'adresse, exposition des 
conditions de vente, …., il est préféra- 
ble de créer autant de petit fichiers 
tampons que lon chargera, le mo- 
ment venu, avec un simple CTRL-L. 
En effet, le glossaire est limité à un 
total de 2048 caractères, même si 
l'on peut (voir la documentation du 
programme) chaîner des définitions 
du glossaire. 


Recherche de chaînes 


On se trompe parfois, lors de la re- 
cherche (et du remplacement) de 
chaînes en effectuant la recherche 
vers le haut alors qu’on souhaitait 
l'effectuer Vers le bas, ou inverse- 
ment. Pour éviter ce type d'erreur, 
chaque fois que je désire comiger un 
texte (en général du haut vers le 
bas}, je précède les corrections d’un 
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CTRL-B qui, tout en me plaçant en 
haut du fichier. garantit que les re- 
cherches iront dans le bon sens 


Visualisation du texte 


Quand on commence à utiliser la pa- 
gination, ou les titres en haut et bas 
de page, on souhaite parfois visuali- 
ser le résultat possible avant de lan- 
cer effectivement l'imprimante C'est 
intéressant aussi pour tester les 
conséquences de la justification (faut- 
il ajouter des césures ?). 


La solution, toute simple, consiste à 
indiquer avec *CTRL-P PD0” que 
l'imprimante (Printer Destination) est 
en fait l'écran. Si l'on a peur que 
tout cela défile trop vite, il suffit de 
prendre par exemple les paramètres 
d'impression ‘’L120” et ‘IP20"” et 
d'indiquer avec "FE I” que l'on sou- 
haite ”’imprimer” feuille à feuille. 


L'impression 


Pour imprimer sur du papier en 
bande un texte continu sans saut de 
page, il suffit d'entrer (après “CTRL- 
P?"} les paramètres d'impression 
suivants : MHO, MBO, LI], iPI (ou 
tout autre nombre à la place du “1”, 
tant qu'il est égal pour LI et IP). 


La lecture de fichier 


Si vous essayez de lire un fichier 
dont le nom comporte un trait 
d'union ”-”, ce nom n’est pas re- 
connu en lecture. Heureusement, on 
peut alors, avec “CTRL-O B’ re- 
nommer le fichier (là, le nom est re- 
connu) et lui donner un nom accep- 
table en lecture. 


Mise à jour des parame- 
tres 

Les paramètres d'impression, access- 
sibles par “CTRL-P ?”, se mettent à 
jour automatiquement après chaque 
impression. Cela peut provoquer des 
surprises : si vous avez défini un titre 
haut (ou bas) directement dans le 
texte pour qu'il n'apparaisse pas sur 
la première page (la page de garde). 
il se trouvera dans les paramètres gé- 
néraux après l'impression. Si donc 
vous lancez ensuite une seconde im- 
pression sans avoir pensé à effacer 
ce titre de la liste des paramètres par 
défaut, il apparaîtra à la seconde im- 
pression dès la page de garde (et 
cela décalera aussi toute numérota- 
tion des pages que vous auriez pu 
demander). 


Le WPL 
Le Word Processing Language 
(WPL) est un excellent langage 


complémentaire (livré avec Apple 
Writer //e) permettant de créer des 
états personnalisés. d'effectuer des 
calculs. de préprogrammer en fait de 
multiples commandes d'Appie Wiiter. 


Nous lutilisons, chez Pom's, pour 
transformer automatiquement certai- 
nes séquences de caractères qui nous 
sont propres en celles attendues par 
la machine de phetocomposition de 
notre imprimeur. Ainsi Pom's est 
réalisé grâce à des textes préparés en 
Apple Writer //e. transformés par 
WPL. puis transmis par modem à 
l'ordinateur de l'imprimeur. 


La documentation du WPL occupe à 
elle seule plus de 100 pages: comme 
on peut en outre travailler quotidien- 
nement avec Apple Writer sans 
jamais avoir recours au WPL, nous 
n'en parlerons pas dans cet article. 


Bibliographie 


Bien entendu, nous vous conseillons 
(n'en déplaise aux copieurs frénéti- 
ques) la documentation du pro- 
gramme, dont la traduction française 
est bien faite. À part cela, vous pour- 
rez lire “Donnez du caractère à votre 
imprimante” dans le Pom's 9, et Un 
bug Apple Writer //e” dans le Pom'’s 
10 (page 70). = 





Adaptez Applewriter 1.1 à 


Jacques Leroy 


Le programme de traitement de 
textes Applewriter 1 1 des Apple Il et 
ll Plus utilise des modules qui per- 
mettent d'introduire des minuscules. 
certains caractères spéciaux et de 
pallier l'absence de touches de dé- 
placement du curseur 


Son utilisation sur un Apple //e est 
par contre source de déboires (les es- 
paces sont remplacés par une demi- 
barre transversale gauche. les chiffres 
deviennent des lettres minuscules) et 
cause d'insatisfactions {les possibilités 
nouvelles du clavier demeurent inuti- 
lisables). [l convient par conséquent 
de modifier ces modules afin d'obte- 
nir le système adéquat 


Dans le Pom's 3 Jean-Louis Meil- 
laud rappelait qu Applewriter 1 1 est 
un logiciel ‘ouvert . à condition de 
se plonger dans les programmes en 
langage machine Après un travail de 
bénédictin. sans avoir pratiqué anté- 
rieurement l'hexadécimal. j'ai réussi à 
détecter les modifications nécessaires 
pour adapter Applewriter 1 1 à l'Ap- 
ple //e. Ces modifications sont à la 
portée de tous et n'ütilisent que le 
moniteur de l'Apple. 
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Modification de TEDITOR 


UNLOCK TEDITOR 

BLOAD TEDITOR 

RENAME TEDITOR. OLD.TEDITOR 
LOCK OLD TEDITOR 

CALL -151 : passage en mode moni- 
teur 


«1505: EA EA EA EA 

Minuscules et caractères spéciaux 
*09E0: EA 

Un seul espace pour passer en mode 
"déplacement du curseur” 

*09E9: 8B 

*09F0: 8A 

*09F7: 95 

*09FE: 88 

Utilisation des quatre fèches pour 
déplacer le curseur après la touche 
ESC. pour les corrections à faire 
dans le texte. 

*080C: 83 

+0810: C3 

Neutralise le CTRL-C dont les effets 
sont maintenant devenus nocifs 
*3D0G : retour au Basic 

BSAVE TEDITOR. A$803, L$1040 
LOCK TEDITOR 


l’Apple //e 


Modification de PRINTER 


UNLOCK PRINTER 

BLOAD PRINTER 

RENAME PRINTER.OLD PRINTER 
LOCK OLD PRINTER 

CALL -151 


*12E1: EAEA Caractères spéciaux 
+12E8: 00 Maijuscules et 

*12F6: 00 minuscules 

*109D: EA EA EA EA 

Entête de page 

*0F56: A1 

Commandes d'impression désormais 
de la forme ‘!FJ" avec des majuscu- 
les. 

*3D0G 

BSAVE PRINTER. A$803, L$1040 
LOCK PRINTER 


NDLR - Ces transformations vous 
permettent d'utiliser Applewriter 1 1 
sur un Apple //e sans devoir acquérir 
Applewriter /e. Par contre. les carac- 
tères étant recodés. vous ne pourrez 
avec cette nouvelle version d'Ap- 
plewriter 11 ni lire vos anciens fi- 
chiers Applewriter 1 1. ni transformer 
les nouveaux fichiers Applewriter 1.1 
en format Applewriter //e. 
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Ce programme vous permettra de 
constituer simplement des tables de 
shapes et de les modifier selon vos 
désirs (suppressions ou ajouts de 
shapes), de les visualiser. les sauver 
sur disquettes et les relire... 


Mode d'emploi 


[ ne devrait pas vous poser de pro- 
blèmes. dans la mesure où le pro- 
gramme indique toujours la nature 
des traitements possibles et vous y 
donne accès au moyen de menus. 


Pour la création d'une shape, vous 
disposez d'une ‘fenêtre ” quadrillée 
représentant un agrandissement de la 
partie de ‘forme en cours de créa- 
tion. La shape complète est dessinée 
en grandeur réelle et en continu à 
droite de cette fenétre. Si vous tou- 
chez l'un des bords ce celle-ci au 
cours des déplacements du spot. elle 
æ déplace également sur la shape. 
c'est-à-dire que la partie agrandie se 
décale à l'intérieur de la fenêtre 


Les touches l. J K et M permettent 
les déplacements habituels La tou- 
che P place un point à la position du 
spot dans la shape. et la touche F 
marque la fin de l'édition pour la 
création délinitive et l'incorporation 
d& la shape dans la table. 

Le touche E est utilisée pour l'efface- 
ment: elle annule l'effet de la der- 
nière touche employée. qu'il s'agisse 
d'un déplacement ou de la mise en 
place d'un point. Une séquence de 
"E à répétition" permet donc de re- 
faire en sens inverse tout le chemin 
accompli depuis le début de la créa- 
tion. 


Une seule précaution à prendre lors 
de la création d’une shape : ne pas 
dépasser le nombre maximum de 
vecteurs autorisé pour chacune d'el- 


Un éditeur de shapes 


Le programme 


Il se compose d'un programme en 
Applesoft et d'une routine en lan- 
gage machine ‘cachée” à la fin de 
celui-ci. Vous trouverez ci-après la ré- 
capitulation hexadécimale de cette 
routine: elle occupe les adresses 
$1753 à 51820 (5971 à 6176 en dé- 
cimal}. Les adresses $1821 à $19A1 
(6176 à 6561) sont en outre utilisées 
comme zone de stockage 


Si vous rentrez vous-même ce pro- 
gramme en machine. vous devrez 
donc mettre aux adresses $AF-$B0 
(175-176). qui contiennent l'adresse 
de fin du programme Applesoft en 
mémoire. l'adresse $19A1 (dans l'or- 
dre A1 19). et ce après avoir saisi 
l'Applesoft et le code-machine. mais 
avant de sauver le tout sur disquette 
par une seule instruction SAVE 
Vous pouvez faire. par exemple 
POKE 175. 161 : POKE 176. 25 
après retour au Basic, avant de taper 
SAVE ‘programme ” 


NDER lors de la lecture du pro- 
gramme  Applesoft d'édition de 
shapes, vous trouverez certaines ins- 
tructions quelque peu bizarres. à 
base de variables à priori inutites 
dont le nom comporte un nombre 
variable de Z (voyez notamment la 
dernière ligne ‘]} Si vous rentrez ce 
programme en machine. il ne vous 
sera pas nécessaire de reproduire ces 
instructions. l'essentiel étant que vous 
respectiez l'adresse de début de la 
routine en langage machine ($1753) 
et que vous ne tapiez pas finalement 
un programme Applesoft plus long 
que celui publié ci-aprés (afin quil 
n'y ait justement pas conflit entre les 
deux parties du programme). Pour 
notre part. nous avons laissé ces ins- 
tructions dans la liste afin qu'elle 


Thierrv Le Tallec 


Nous allons maintenant vous expli- 
quer brièvement leur raison d'être 
La version initiale du programme 
proposée par l'auteur comportait un 
grand nombre de caractères de 
contrôle. destinés notamment à amé- 
livrer la présentation du texte à 
l'écran (sauts de ligne}. Mais ces ca- 
ractères présentent un grave inconvé- 
nient ils n'apparaissent pas lors d'un 
LIST du programme et peuvent 
même donner l'impression qu'une 
série d'espaces sépare les deux par- 
ties de texte qui les encadrent. 
Conséquence : le lecteur ne peut pas 
reconstituer le programme original à 
partir de la liste publiée. De plus. 
abusé par cette liste. il risque de 
taper un programme trep long. dé- 
bordant sur les adresses réservées à 
la routine en langage machine. pour 
aboutir à un résultat déplaisant : un 
‘ plantage” Nous avons donc modi- 
fé ce programme. afin d'obtenir 
exactement le même nombre d'oc- 
tets pour l'Applesoft, mais unique- 
ment avec des caractères visibles 


Ceci nous fournit l'occasion de lancer 
un appel à l'intention de tous les au- 
teurs qui envisagent de contribuer à 
Poms: n'oubliez pas vos futurs lec- 
teurs ! En d'autres termes. n'incorpo- 
rez dans vos programmes que des 
caractères listables et publiables” 
surtout si leur fonctionnement sup- 
pose l'emploi d'une routine ‘ca- 
chée” De même. il est bon de se 
rappeler que tous les possesseurs 
d'Apple ne disposent pas d'un sys- 
tème permettant l'affichage des mi- 
nuscules à l'écran, Une instruction 
telle que: PRINT ‘Appuyez sur C 
pour continuer” risque fort de laisser 
perplexe l'utilisateur d'un Apple il+ 
standard. et il est alors douteux. jus- 
tement. qu'il puisse continuer. 








les {le programme vous prévient lors- "este comparable au programme m) 
que vous approchez de la zone dan- fourni sur la disquette d'accompa- 
gereuse). gnement de ce numéro de Pom's 
Programme SUPER-SHAPES À EURO SE 2 JÜLE #00 OVER 22 MPLOT 
. se S,C TO B + 1,C: NEXT : FOR C = 
Partie visible E = 2 TD:E.+ ? STEP 4: HPLOT 
Er dise TOMBA T2R Ca NEXT FOR 
ONERR  GOTO 24 Cr=" ES TOrE.-4 "1: HPLOT BE = 
2AÀ = S971:BE = CHR (4):4% = 200 2,C TO & + 3,C: NEXT : HCOLGR= 
DEF FN AB) = PEEK (B) + 3: RETURN 
2536 *x PEEK <B + 1): HCOLOR= 95 FPOKE 34,0: INVERSE UTAE 2ï: HTAB 
3: SCALE= 1: ROT= Gt: DIM BX<A 1: FRINT "DEBUT="F; SPC 13 - 
231: GOTO 21 PEEK (363) ;"FINz":;:G: SPCC 25 
3 FORC = -1 TO 1: FOR D = 0 TO —  PEEK (36)) ;"SHAPE °:C<"/" 
1: HPLOT B + D,E + C: NEXT : NEXT H; SPCC 40 - PEEK (36)ÿ: NORMAL 
: HCOEGR= 3: RETURN : POKE 34,21: RETURN 
NasIsphisaeens as 
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6 POKE 34,1: HOME : UTAB 4: PRINT : HTAB 2 


"1. CATALOGUE DRIVE 1°: PRINT 31 GET A$: IF A$ = "P" THEN HPLOT 
: PRINT “2. CATALOGUE DRIVE 2 1,J: GOSUB 4:0 = 4: GOTO 31 
"s PRINT : PRINT ‘3. "C$" TAB 32 IF ÀA$ < > “I° THEN 35 
LE DE SHAPES": PRINT : PRINT 33 IF O = 0 THEN HCOLOR= 0: GOSUB 
“4. RETOUR AU MENU": PRINT : PRINT 3 
PRINT "VOTRE CHOIX :°: 34 J = J - 1:E = E - 8: G@SUB 12: GOSUB 
7 GET AS:C = VAL (AS): IF C < 1 OR 3:BX(B/) = 0 + 0:0 = O0: GOTO 
C > 4 THEN 7 30 
B PRINT C: IF C = 1 THEN PRINT B 35 IF A$ < D °J" THEN 3B 
$"CATALOG,Bi": GET A$: GOTO 6 36 IF O = Q THEN HCOLOR= 0: GOSUB 
3 
9 IF C = 2 THEN PRINT B$° CATALOG 37 1 = I - 1:B = 8 - 7: GOSUB i2: GOSUB 
,D2°: GET A$: GOTO 6 3:BX(B4) = 3 + 0:0 = 0: GOTO 
10 IF C = 4 THEN POP : GOTO 24 30 
11 RETURN 38 IF AS { > "K" THEN 41 
12 IF 1 > 279 THEN I = 155 39 IF O = O0 THEN HCOLOR= 0: GOSUB 
13 IF I < 155 THEN I = 279 3 
14 IF J 2 159 THEN J = 0 48 I = I + 1:B = B + 7: GOSUR 12: GOSUB 
15 IF J < Q THEN J = 159 3:8(B7: = 1 + 0:0 = 0: GOTO 
16 IF E > 148 THEN E = 148: CALL 30 
A 41 IF ÀA$ < > "M" THEN 44 
17 IF B < 3 THEN B = 3: CALL À + 42 IF OQ = Q THEN HCOLOR= û: G@SUB 


(a) 
w 


18 IFE < 4 THEN E = 4: CALL À + 43 J= J + I:E = E + &: GOSUB 12: GeSUyB 
6 3:B4(BY%) = 2 + O:0 = G: GOTO 
19 IF B > 150 THEN B = 150: CALL 20 
Actor 44 IF À$S > *E° THEN 53 
20 RETURN 45 BX = A%X - l:P = BX(&4): IF O0 = 
21 K = 232:L = 233:M = 49152:N = 4 4 THEN HCOLOR= 0: HPLOT 1.9: 
7168 GOSUB 4 
22 IF F = O0 THEN HOME : VTAB 10: 46 O = 0: HCOLOR= 0: GOSUB 3: ON 8 
PRINT °$300=768": PRINT °$40 % = 0 GOTO 29: IF PF > 3 THEN 
00=16384" : PRINT "$6000=24576 P=P-4 
"3; PRINT °$8000=32768": PRINT 47 IF P = 0 THNE =E + 2:J = J + 
*$9000=36864" : PRINT : PRINT 1 
*LOMEM=" FN 8{105): PRINT °HI 48 IFP = 1 THN B=8B-7:I = I - 
ME" FN A(C115): INPUT "ADRES 1 7 
SE DEBUT (DECIMAL):°:F: IF F < 49 FF = 2 THÉNE =E - 8:J = J - 
768 THEN F = 0: GOTO 22 1 
23 POKE F,0:G = F: POKE K,F - INT 50 IF P = 3 THEN B=8B + 7:11 = I + 
(F,/ 256) *x 256: POKE L, INT t 
(F7 256):2 = 22 51 GOSUB 12: IF 87(8%) } Z THEN 
24 TEXT : HOME : INMVERSE : PRINT HCOLOR= 0: HPLOT I.J: GOSLIE g 
L EDITEUR DE SHAPES 92 GOSUB 3 
°: NORMAL : VTAB 5 53 IF ÀA$ € > “F" THEN 31 
: PRINT “1. CREER UNE TABLE D 54 HOME : VTAB 23: PRINT "CREATIO 
E SHAPES" : PRINT "2. AJOUTER N EN COURS":G = @:R = 80:S = 1 
DES SHAPES": PRINT °3. SUPPRI : IF O = 4 THEN B<BZ) = 4:87 
MER DES SHAPES" = BXZ + 1 
25 PRINT "4. VISIONNER VOS SHAPES 55 C = PEEK (49200):P = BX(S):R = 
°3: PRINT "S. LIRE UNE TABLE D R + 12 IF R > 3 THEN R = 1 
U DISQUE": PRINT “é. SAUVER L 56 IF R = i THEN QG = P 
À TABLE SUR DISQUE": PRINT *7 57 IFR = 2 THN Q=G+2%+%;P 
. TERMINER": POKE 34,20: HOME 58 IFR < > 3 GOTO é1i 
:H =  PEEK <F): GOSUB 5:2 = 2 59 IF PF 4 4 THEN QG = Q + 64 x P 
2 60 POKE T,Q:T=T + ii: IF F = 0 OR 
26 VTAB 23: HTAB 1: PRINT "VOTRE P > 3 THEN S=S-1:1IF Q < 
CHOIX :°3:: GET A$:C = VAL «A 8 THEN POKE T - i.8 + 64:Q = 
$): IF © < 1 OR C > 7 THEN 26 3:R = 1 
61 S=S +1: IF S < BX THEN 55 
27 PRINT C: ON C GOTO 64,71,73,80 62 POKE T,G: IF & > Q THEN TT =T + 
.86,89,91 1: POKE T,0 
28 VTAB 23: HTAB 2:0 = 0 63 T = T + f: HGR : DRAW EX AT 135 
29 PRINT CHR$ (7)::8 = 80:E = 7é ,79: RETURN 
: GOSUB 3:B% = O:1 = 21é6:J = 64 HOME : VUTAB 23: INPUT "NSMBRE 
79 DE SHAPES (1-255) ?";H: IF H « 
30 87 = BY + ji: IF BY > A7 - 10 THEN 1 OR H >} 25 THEN 64 
INVERSE : VTAB 21: HTAB 1: PRINT 65 CX = 0: POKE F,H: FOR C = 1 TO 
CHR$ C7);" VECTEUR h°;8%3; SPC 3: POKE F + C,0: NEXT :G = F + 
9); "CMAX = ";4%;")"; SPCC 40 -— DH UH + 2 
PEEK (36): NORMAL : VTAB 23 66 HOME : PRINT “ Î{": PRINT "JK 
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POUR DEPLACER, P = POINT, E = 77 X = € - T: FOR D = C TO G: POKE 
EFFACE M"; SPC 17)3;"F = FIN D —- X, PEEK (D): NEXT :G = G - 
“53:04 = CZ + 1: IF CZ > H THEN X3H = H — 1: = F: FOR C = 1 TO 
C4 = H: GOTG 24 H:U = U + 2: IF C > CZ THEN T 
é7 T= G:U=T'-F: POKE F + 2 x C = FN ACU + 2») - X - 2: GOTO 
AsU — INT CU / 256) x 2Sé: POKE 29 
F + 1 + 2 x CZ, INT <U / 256) 78 T = FN ACU) - 2 
: GOSUB S: HGR : FOR C = 0 TO 79 P = INT CT / 256): POKE U + 1, 
154 STEP 7: HPEOT C,0 TO C,15 P: POKE U, INT CT - P x 256): 
2: NEXT : FOR C = 6 FO 152 STEP NEXT :G = G - 2: FOR C = U + 
8: HPLOT 0,C TO 154,C: NEXT : 2 TO G: POKE C, PEEK CC + 2): 
GOSUB S: GOSUB 28 NEXT :C7% = H: POKE F,H: GOTO 
68 HOME : VTAB 23: PRINT "EN ETES 24 
VOUS SATISFAIT ?";: GET A$: IF 80 ON H = G GOTO 24: HOME :C# = 1 
AS < > *O* AND ÀA$ < > "N° THEN : PRINT : PRINT "ESPACE = PAU 
68 SE RETURN = FIN" 
69 IF ÀA$ = "N" THEN CZ = C4 - 1: GOTO 81 HGR : GOSUB S: DRAM CZ AT 139, 
66 79:C = 1 
70 G = T: GOTO 66 82 D = PEEK CM): IF D < 128 THEN 
71 ON H = 0 GOTO 24: HOME : VTAB C = C + 1: ON C < 100 GOTO &2 
23: INPUT *“COMBIEN VOULEZ-VOU TZ = CZ + 1: ON CZ < = H GOTO 
S EN AJOUTER ? ";V:W = H + UV: 8i:C7% = H: GOTO 24 
IF V < 1 OR &W > 255 GOTO 71 83 POKE N,0: IF D = 141 THEN CZ = 
72D=F:X = 2 x LV: FOR C = 1 TOH H: GOTO 24 
:D = D + 2:T = FN ACD) + X:5S 84 IF D = 160 THEN VTAB 24: GET 
= INT {T / 2$6):P = INT €T Ad: IF CZ < H THEN CZ = CZ + 
- S * 256): POKE D,P: POKE D 1 
+ 1,S: NEXT :D = D + X + 2:G 5  G8TO 81 
= G + X: FOR C = G TO D STEP 86 C$ = "LECTURE D°'UNE": GOSUB “# 
— 1: POKE C, PEEK CC — X): NEXT 87 VTAB 23: HTAB 1: INPUT "DONNEZ 
:H = W: POKE F,H: GOTO 66 SON NOM :";D$: ON D$ = ”" GOTO 
73 ON H < 2 GOTO 24: HOME : VTAB 87: PRINT B$&"BLOAD” ;0$;",4"3F 
23: INPUT "QUELLE SHAPE VOULE :H = PEEK (F):C2 = H:6 = F + 
Z-VOUS SUPPRIMER ? *"3C%: IF C FN ACF + 2 x H) 
Z < 1 OR CZ >} H THEN 73 88 G = G + 1. ON PEEK (G - 1 < >} 
74 HGR : GOSUB S: DRAW CZ AT 139, 0 GOTO 88: GOTO 24 
79: HOME : VTAB 23: PRINT “C’ 89 C$ = “SAUVER LA": GOSUB 6 
EST BIEN CELLE-CI CO/N) ? ";: SQ UTAB 23: HTAE 1: INPUT "SOUS @ 
GET AS: IF A8 < > "O" THEN UEL NOM ? ";D$: ON D$ = "" GOTO 
73 90: PRINT BS$"BSAVE" :8$;" A";F 
75 HOME : VTAB 21: FLASH : PRINT 5", L"3:6 = F: GOTO 24 
® COMPRESSION EN COURS, VEUILL S1 TEXT : HOME :2222e2222222222222 
E2 PATIENTER":;: NORMAL :U = C Z222Z2ZZZZ222222222222222222822 
Z * 2 + FT = F + FN AUD :C = L'LLLILLLLIPILILLILIZIZ22ZL22277 
T 22222222222222222727222222 = 
76 D = PEEK €C): POKE C,0:C = C + Q 
1: IF D < > O THEN 76 
Partie cachée de 1808- A2 07 8D Ei 18 85 06 8D 18D8-5F 23 27 28 2F 33 37. 38 
1810- 21 18 85 07 A0 15 A9 O1 18E0- 3F 00 00 00 00 00 00 00 
SUPER-SHAPES 1818- 91 06 88 10 F8 CA DO FEA 18E8- 00 80 80 80 80 80 80 80 
1751- 41 00 4C 83 17 4C Ci 1820- 60 20 24 28 2C 30 34 38 18F0- 80 00 00 00 00 00 00 00 
1758- 17 4C Eé 17 A2 97 8D E1 1828- 3C 20 24 28 2C 30 34 38 18F8- 00 80 80 80 80 80 80 80 
1760- 18 85 04 8B 21 18 85 05 1830- 3C 21 25 29 2D 31 35 39 1900- 80 00 00 00 00 00 00 00 
1768- A0 01 81 04 88 91 04 C8 1838- 3D 21 25 29 2D 31 35 39 1908- 00 80 80 80 80 80 80 80 
1770- C8 C8 16 DO F5 8A 29 07 1840- 3D 22 26 2À 2E 32 36 3A 1910- 80 00 00 00 00 00 00 00 
1778- F0 05 A9 01 88 91 04 CA 1848- 3E 22 26 2À 2E 32 36 3A 1918- 00 80 80 80 80 80 80 80 
1780- D0 BC 60 A2 01 8D Ei 18 1850- 3E 23 27 28 ?2F 33 37 38 1920- 80 28 28 28 28 28 28 28 
1788- 85 06 8D 21 18 85 07 8D 1858-97 23 27 28:24F 33 37 38 1928- 28 AB A8 A8 A8 AB A8 AB 
1790- E9 18 85 04 8D 29 18 85 1860- 3F 20 24 28 2C 30 34 38 1930- AS 28 28 28 28 28 28 28 
1798- 05 AG 15 81 04 91 06 88 1868- 3C 20 24 28 2C 30 34 38 1938- 28 A8 A8 AB A8 AB A8 AB 
1740- 10 F9 E8 EO0 98 DO DE CA 1870- 3C 21 25 29 2D 31 35 39 1940- A8 28 28 28 28 28 28 28 
1748- 8D E1 18 85 064 8D 21 18 1878- 3D 21 25 29 2D 31 35 39 1948- 28 A8 A8 AB A8 AB AB AB 
1788- 85 07 A9 01 A8 15 91 06 1880- 3D 22 26 2 2E 32 36 3A 1950- AS 28 28 28 28 28 28 28 
1788- 88 10 F8 CA E0 90 DO E8 1888- 3E 22 26 2A 2E 32 36 3A 1958- 28 AB A8 A8 AB AB A8 AB 
17C0- 640 A2 97 8D Ei 18 85 04 1890- SE 23 27 28 2F 33 37 38 1960- AS 50 50 50 50 50 50 50 
17C8- 8D 21 18 85 05 A0 14 81 1898- 3F 23 27 28 2F 33 37 38 1968- 50 DO DO DO DO DO DO D9 
17D0- 04 C8 91 04 88 88 10 F7 18A0- 3F 20 24 28 2C 30 34 38 1970- DO 50 50 50 50 50 50 50 
17D8- 8A 29 07 F0 05 A9 01 C8 18A8- 3C 20 24 28 2C 30 34 38 1978- 50 DO DO DO DO DO DO DO 
17E0- 91 04 CA DO DE 60 A2 8F 18B0- 3C 2i 25 29 2D 31 35 39 1980- BO 50 50 50 50 50 50 50 
17E8- 8D Eli 18 85 04 8D 21 18 1888- 3D 21 25 29 2D 31 35 39 1988- 50 DO DO DO DO DO DO 00 
17F0- 85 05 8D E9 18 85 06 8D 18C0- 39 22 26 2A 2E 32 36 3A 1990- DO 50 50 50 50 50 50 50 
17F8- 29 18 85 07 A0 15 81 04 18C8- 3E 22 26 2A 2E 32 34 3A 1998- 50 DO DO DO DO DO DO DO 
1800- 91 06 88 10 F9 CA DO EO0 18D0- 3E 23 27 28 2F 33 37 38 19A0- DO 41 
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Nombres flottants en langage machine 


Introduction 


Le but de cet article est double 


e approfondir les connaissances du 
lecteur en matière de structure des 
données en Applesoft et notam- 
ment sur celle des nombres fiot- 
tants: 

e répondre aux besoins des scientifi- 
ques en leur fournissant un pro- 
gramme de formatage de nom- 
bres 


Les thèmes suivants seront abordés 


e l'accumulateur fottant: 

e représentation de fottants en mé- 
moire: 

e comment trouver une constante 
en ROM ? 

e formatage de nombres scientifi- 
ques. 


Î sera pratique d'utiliser le Moniteur 
Etendu de Thierry Le Tallec dans 
Poms 8 et de prendre connaissance 
de l'article de Philippe François sur 


les programmes  relogeables dans 
Pems 7. 
Accumulateur flottant : 
FAC 


Be même que le microprocesseur 
6502 dispose d'un accumulateur 8 
bits sur lequel il effectue les opéra- 
tiens essentielles d'addition et de 
soustraction. l'Applesoft comporte 
une zone mémoire analogue pour les 
nombres flottants qu'il manipule 
l'accumulateur fottant baptisé FAC. 


FAC est une zone de 6 octets s'éten- 
dant des adresses $9B à $A2. dans 
laquelle l'Applesoft stocke les nom- 
bres flottants {par oppositien aux 
nombres entiers). sur lesquels il réa- 
lise des opérations évoluées telles 
que 
e les quatre opérations 
e des fonctions comme 
TAN EXP LOG 
e des transformations comme - INT 
ABS .. 


Pour comprendre sous quelle forme 
les flottants y sont enregistrés. il suffit 
de se souvenir comment - en nota- 
tion décimale - nous décomposons 
les nombres Tout nombre N s'écrit 

N = M + 10 C où M désigne la 
MANTISSE. avec 0O<= M| <1 et C 
désigne la CARACTERISTIQUE (ou 
exposant). 


+ — x 
SIN COS 


En binaire. on peut tout naturelle- 
ment adopter les mêmes disposi- 
tions: 


Exemple ! N — 75 soit 075 x 
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En décimal. N = 0.75 x 10 1 
Remarquons que N = 15 x 2 —1 
Nous multiplions N par 2 jusqu à ob- 
tenir un nombre entier Remarquons 
que cette opération nest pas tou- 
ours possible. comme on peut le 
constater dans l'exemple 2. 

En binaire, N = 1111 « 10 -1 

15 en base 10 = 1111 en base 2) 
(2 en base 10 = 10 en base 2) 
Décalons : N = 01111 +10 11 

3 en base 10 = I I en base 2) 
soitenhexa N=0Fx:23 


L'accumulateur FAC est une zone de 
6 octets dans laquelle les nombres 
sont codés de la façon suivante 
C'MIMMMS 

C : caractéristique majorée de $80 
M1i/MM/M : mantisse sur 4 octets 

S. l'octet d'extension. caractérise le 
signe du nombre 

- si N > O0 alors S est M1 avec le bit 
7 à zéro 

- Si N < 0 alors S est égal à M1 
notons que si N = O0 alors C=0 





Pour notre exemple. 7.5 sera donc 
codé 

83/F@/00:00/00:70 

7.5 à pour mantisse O FO 00 00 00 
et pour exposant $3 

En effet. il est positif. donc S = $FO 
avec le bit 7 (le plus fort) à zéro. or 
$FO = 1111 0000. donc S = O111 
000 soit $70. 


Exemple 2 (plus complexe) 
coder N = 7 4 

On multiplie par 2. soit N = 148 + 
2 —1 

Comme ce nest pas un entier. re- 
commençons avec: N = 296 « 
2, —2 

Cela ne convient toujours pas. Jus- 
qu où faut-il donc répéter le double- 
ment ? Eh bien. nous savons que la 
mantisse (exprimée en binaire) est 
codée sur les quatre octets Mi M M 
M du FAC. soit 4*8=32 bits La 
mantisse (ou du moins sa partie déci- 
male) ne peut donc excéder 2 32 = 
4.294.967.296 II ne faut par consé- 
quent pas poursuivre la multiplication 
par 2 au-delà de cette valeur 

Ainsi. 7.4 = 3972844749 » 2 —29 
Cette valeur de la mantisse est une 
valeur approchée car. derrière le der- 
nier 9. il y à encore une décimale. 
Ceci dit. l'erreur est inférieure à 
2 —30, soit 9:10 —I0 (ce qui justi- 
fie les 10 chiffres significatifs de l'Ap- 
plesoft). 


soit à 


Îl reste à coder la mantisse en bi- 
naire. ou plus simplement en hexa- 
décimal. grâce à des divisions succes- 


Erick Ringot 


sives par le : à 

3 972 844 749 = 14416 7 + 
12*16 6 + 12x16 5 + 12+16 4 + 
12#16 3 + 12*16 2 + 12x16 + 13 
=:$EC CECCC:CD 

Il faut décaler le point décimal de- 
vant la mantisse. soit une translation 
de 32 bits La nouvelle caractéristi- 
que vaut donc: : —29 + 32 = 3, 


En conclusion : 
Caractéristique C = $80+$03 — 
$83 

Fame MIiMMM = $EC CC CC 


Octet d'extension : on prend MI = 
$EC = 1110 1100: comme N est 
positif, on supprime le bit numéro 7 
(le plus fort). Donc. S = 0110 1 100 
soit S=$6C en hexadécimal. Ainsi, 
7.4 est codé $83 EC CC CC CC CD 
eC dans le FAC (C M M MMS). 


On peut vérifier cet état de fait direc- 
tement en mémoire: il faut pour cela 
charger le FAC avec la valeur de son 
choix. puis le consulter. 


Vérification en mémoire 


L'instruction Basic USR constitue 
une voie de passage entre l'Applesoft 
et le langage machine Pour pouvoir 
l'utiliser. il faut préciser à l'Apple 
l'adresse du programme en langage 
machine que l'on désire appeler. 
Cette adresse (qui occupe 2 octets) 
doit étre écrite dans les octets 
11=$B (octet faible de l'adresse) et 
12=$C (octet fort). 


Ainsi. pour une routine implantée en 
768=$300. on tapera POKE 11.0 
(adresse faible), puis POKE 12,3 
(adresse forte) et l'Apple saura” 
qu'à la prochaine utilisation de USR. 
il devra exécuter la reutine à 
l'adresse 5300. 

Si lon écrit Y=USR(X) où X et Y 
sont des variables numériques. X 
sera versé dans le FAC par l'Apple- 
soft de façon automatique avant 
l'exécution de là routine en langage 
machine. Si cette routine prend en 
charge le FAC. alors Ÿ contiendra le 
résultat de ses calculs. 


Quant à nous. utilisons USR simple- 
ment pour voir comment Apple 
code les nombres dans le FAC. En 
$300. nous mettons un octet nul $0, 
qui est le code d'une interruption 
BRK stoppant toute precédure et 
donnant la man au moniteur 
tapons POKE 768.0 à cette fin. 

Nous profitons alors de cette inter- 
ruption pour consulter directement le 
FAC en mémoire vive. dans les 6 
octets de $9D à $A2. 


hit 


RRHIESSSSSSERRN 


Fran ELATES 
_* 


45 














Exemple 1. codage de 7.5 en FAC. 


Taper B=7.5:A=B:PRINT USR(A) 
L'Apple sinterrompt comme prévu 
et l’astérisque indique le passage au 
mode moniteur. 

Taper $D.A2 pour consulter FAC. La 
réponse 

O009D- 83 FO OO 

OOAO- O0 O0 70 


confirme nos prévisions. 
Pour retourner à l'Applesoft, taper 
CTRL-C. 


Exemple 2 codage de 74 en FAC. 


On reprend la procédure avec la va- 
leur 74 (après avoir refait les 
PORESs), puis $D.A2. et la réponse 
devient effectivement 


O09D- 83 EC CC 
OOAO- CC CD 8C 


Les flottants ”’packés” 


On peut reprocher au codage de fiot- 
tant en FAC d'être redondant: l'octet 
d'extension S contient en effet deux 
informations : le signe du nombre et 
la valeur de M1. ce dernier est donc 
surabondant 


Par mesure d'économie. les fottants 
en mémoire ne seront donc plus 
codés que sur 5 octets selon la confi- 
guration suivante. dans laquelle M1 
est remplacée parS : 

{C:SM/MM 

C'est la forme compactée, “packée” 


Ainsi, la valeur 7.4 est codée 83 EC 
CC CC CD 6C dans le FAC. mais 
on gagne un octet en mémoire 
“standard” en la codant : 83 6C CC 
EC'ED: 


Echange entre FAC et la 
mémoire 


Maintenant que les deux types de 
codage nous sont connus. il serait fa- 
cile de réaliser un petit programme 
en langage machine effectuant la 
transition de l’un vers l’autre et réci- 
proquement. On imagine bien que 
l'Applesoft dispose déjà de telles rou- 


tines 

MOVMF EQU $EB2B 

MOVe Memory FAC 

qui convertit et transfère le FAC en 
zone mémoire pointée par les regis- 
tres Ÿ ({octet fort) et X (octet faible). 
En retour, l'accumulateur et le bit Z 
du registre d'état reflètent FACEXP 
{octet S de FAC). 

(traduit de “Whats Where in the 
Apple ?"” de F Luebbert - Ed. Micro 
Inc.). 


On trouve évidemment la routine ré- 
ciproque : 

MOVFM EQU $EAFS : 

MOVe FAC = Memory 

qui convertit et transfère vers FAC la 
mémoire pointée par le registre Y 


DENEHRENPENT TE L: 
ASE, 
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(octet fort) et l'accumulateur A (octet 
faible). 


Ces routines vont nous permettre de 
faire quelques exercices. 


Passons en mode moniteur : CALL 
—151 

Implantons le programme utilisé par 
USR en $300 (00 03 aux adresses 
$B-$C) et en $300 : 


AO 03 LDY #S503 
l'octet fort de l'adresse du nombre 
est 503 

A2 10 LDX #S10 


l'octet faible de cette adresse est $10 
20 2B EB JSR 


SEBZ2B 


transfère le FAC (chargé par USR) 
vers $310 
O0 BRK 


interruption 


qui traduit FAC vers la zone de 5 
octets commençant en $310. 


Repassons en Basic par CTRL-C (et 
RETURN) et entrons : 


NEW 
10 INPUT À PRINT USR (A) 
RUN 


Répondons 7.5 (RETURN) au ‘?” 


Apres le BREAK +. on peut consulter 
la zone $310 par 310.314 

On obtient alors la réponse : 

83 70 00 00 00 


On peut effectuer cette opération 
pour les nombres 1 et 10. dont nous 
aurons besoin plus tard 


1 estcodé 81 00 00 00 00 
10. estcodé 84 20 00 00 00 
O0. estcodé 00 00 00 00 00 
PI2 est codé 81 4% OF DA A2 
(1570789633) 


Comment trouver une 
constante flottante en 
ROM ? 


L'Applesoft a besoin de certaines 
constantes pour ses calculs: PI;2. 
Log(2) permettant de cailcitler 
toute fonction comme série entière. 


Le programme MONITEUR.OBJ du 
Moniteur Etendu (Poms 8) nous 
permet la recherche de constantes. à 
condition d'en connaître le codage. 
ce qui ne nous pose plus de pro- 
blème. 


Chargeons le moniteur : BRUN MO- 
NITEUR.OBJ. 

La ROM s'étend de $CFFF à $FFFF. 
Pour la recherche d'une constante en 
ROM. il suffit de taper : 
CFFF.FFFF/C S M M M (RETURN) 


Le Moniteur Etendu donne l'adresse 
du premier octet s’il le trouve. On 
obtient ainsi les résultats suivants : 


NOM VALEUR ADRESSE CODE 


ONE 1.  E9i3 Bt 00 00 00 00 


EA50 84 20 00 00 00 
FOBB 81 43 @ DA A2 


TEN 10. 
PI/2 PI/2 


Formatage de nombres 
en notation scientifique 


À titre d'exemple. nous allons écrire 
une routine en assembleur permet- 
tant de formater les nombres en no- 
tation scientifique. 


Format choisi : il est fixe. 


Les nombres formatés occuperont 
exactement 10 caractères selon le 
format : 

sm.mmmErcc 

s — signe 

mimmm = mantisse M telle que 
1<M<10 (4 chiffres significatifs dont 
3 décimales) 

E = signe d'exponentiation 
r = signe de caractéristique 
cc = caractéristique 

Ainsi, —12457 

—1. 246E+02. 


Algorithme 


s'écrira 


Le principe d'une telle routine est de 
transformer le nombre en chaîne de 
caractères. 


1) Il faut d’abord initialiser la chaîne 
à zéro : 

CHAINE = ‘+0.000E+00" 

2) Il faut ensuite déterminer le signe 
du nombre et modifier si nécessaire 
le premier caractère de CHAÏNE en 
conséquence : 





| CHAINE < *_0.000E +00” 
Nombre Æ Valeur absoiue 





3) Le calcul de la mantisse et de la 
caractéristique se conduisent simulta- 
nément. Si le nombre est supérieur 
ou égal à 10, il faut le diviser par 10 
et incrémenter la caractéristique. Si le 
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nombre est inférieur à 1. il faut le 
multiplier par 10 et décrémenter la 
caractéristique. La caractéristique est 
initialisée à zéro 


CARAC<+0 


| 








[ : i 
nombre € nombre/10| 


| Carac < carac +1 | 


| 


ED 


nombreÆnombrex10 


oui 








oui carac € Carac —1 











4) Ne gardant que trois décimales. il 
faut arrondir : pour cela. on multiplie 
par 1000. on ajoute ,5 (afin d'arron- 
dir et non tronquer}, puis on divise 
par 1000. 


Exemple : n = 1.834627 

Arrondir . 1000 x n = 1834627 
1000 x n +.5 = 1835,127 

Partie entière = 1835 

Divisée par 1000 : 1.835 

Remarque : un problème peut surve- 
nir dans le cas particulier où 99995 
< n < 99999 En effet. l'arrondi 


donne alors 10. 1] faut donc reforma- 
ter 


nombre <—— nombre X 1000 


= — 


nombre &—— nombre + .5 


nombre €<—— nombre ; 1000 





fombre = 10) 


_ oui ®) 


non 


® 
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1 
| Conversion nombre / chaîne 


Transfert dass CHAINE 








__V 


| Conversion caract / chaine | 


f | 
2 


< À oui EF 
caracteres? ———> inserer 
= + 








5) On transforme NOMBRE en une 


chaîne de caractères. on la verse 
dans CHAINE : on transforme égale- [Trensfert ‘dans CHAINE 
ment CARACT en une chaîne en ee 

prenant garde qu'elle comporte 3 ca- 
ractères. y compris le signe. et on 
transfère dans CHAINE. I ne reste 
plus qu'à écrire CHAINE 


| 
| 
| 
l 





[Ecrire CHAINE 


” Es 
> Retour > 










ÉESLSSEÉÉS LES ES sis ssssss 
# SCIENT.LIB 
* RELOGEABLE 


Variables . 
CH$ : chaîne recevant la chaîne 
CA : caractéristique 


tisse 
(voir le listing de SCIENT.APP) 


Routine en 
(DOS Tool kit) 


# 
L 2 
LA 
FORMATAGE DE NOMBRES # 
EN NOTATION SCIENTIF. # 

LA 

* 


three AmRemR MMM HER EN Ne EN 


VNNmUEBEUNEr 


10 :E.RINGOT, LE 16/01/83 





D 


Sous-programme Applesoft 


NB nombre à formater. puis man- 


assembleur 











12 ORG S$1000 : POUR ASSEMBLAGE SEULEMENT 
13 : 

14 4 RS SESERESERSES 

15 :<1>-VARIABLES 

16. :-<-=<--==<------ 

17 

18 CHAINE EQU 5250 : BUFFER 

19 SIGMAN EQU CHAINE :SIGNE DE MANTISSE 

20 MANTIS EQU CHAINE+1 :’MANTISSE 

21 POINT EQU CHAINE+2 

22 SYMBEX EQU CHAINE+6 :;SYMBOLE ’E° 

23 SIGEXP EQU CHAINE+7 :;>SIGNE D’EXPOSANT 

24 EXPOSA EQU CHAINE+8  ; EXPOSANT 

25 FINCHA EQU CHAINE+i0 

26 EXPO EQU S260 ; CARACTERISTIQUE 

27 FRESPC EQU S71 : POINTEUR DE CHAINE 

28 ONE EQU SE913 ; CONSTANTE FLOTTANTE :. 
29 TEN EQU SEASO ; CONTIENT LE FLOTTANT 10. 
30 : 

Ep RE 

32 :<2>-ROUTINES ROM 

CC RS Rate so A ENT Prieur 

34 : 

35 CHRGOT EQU $SB7 :N’'AVANCE PAS LE POINTEUR 
36 CHRGET EQU SB1 : CARACTERE DANS LE BASIC 
37 FRMNUM EQU SDD67 : FAC <= EXPRESSION 

38 MUL10 EQU S$EA39 :FAC <= FAC #r 10 

39 DIVIO EQU SEASS :FAC = FAC / 10 

40 SIGN EQU SEB82 ;A <= SIGNE (FAC) 

41 ABS EQU  SEBAF :FAC = ABS (FAC) 





BRAS 







ÉRETHITE 














RP | 


Syntaxe 


Nous vous proposons d'appeler une 
routine formatant et éditant les nom- 
bres. La syntaxe de la routine Apple- 
soft sera : 

CALL adr. nombre |:] 

adr = adresse décimale de la routine 
qui sera relogeable 

. = Séparateur 

nombre = argument à passer : cons- 
tante, expression. variable numérique 
F1 = spécification optionnelle empê- 
chant le retour chariot après édition 
On ne peut écrire qu'un seul nombre 
avec un tel CALL. 


Commentaires sur le programme 


Lignes 78-79 : CHRGET saisit fa vir- 
gule dans le texte Applesoft et incré- 
mente le pointeur TXTPTR 
FRMNUM transforme l'expression 
numérique suivant la virgule et la 
transfère dans FAC. 


Lignes 98-100 : STROUT écrit une 
chaîne de caractères pointée par les 
registres Y(MSB}) et A(LSB). la 
chaîne doit se terminer par un octet 
nul - ne pas confondre avec un octet 
contenant "0" soit $30. 


Lignes 102-108 : CHRGOT prend le 
caractère dans le texte Applesoft, 
mais sans incrémenter le pointeur 
TXTPTR. Si le caractère n'est pas 
7”, on envoie un retour chariot. 
Dans Le cas contraire. on le passe 
grâce à CHRGET et on revient à 
l’'Applesoft. 


Lignes 116-134: calcul de la man- 
tisse et de la caractéristique EXPO 
FCOMP compare FAC au nombre 
pointé par Ÿ et À à la sottie. 


À contient 0 si FAC =MEM 
À contient 1 si FAC > MEM 
À contient FF si FAC < MEM 


Lignes 138-150: procédure d'ar- 
rondi - la routine FADDH ajoute 0.5 
à FAC. 


Lignes 154-163 : transforme le FAC 
en chaîne grâce à FOUT. La chaîne 
est pointée par Ÿ et À à la sortie 
{normalement. c'est $100). On récu- 
père cette adresse en FRESPC {page 
@). ce qui nous permet de la transfé- 
rer vers MANTIS. On contrôle deux 
choses : 

- arrêt du transfert si la chaîne se ter- 
mine par 0: 

- arrét du transfert si 5 caractères au 
maximum sont transférés (ce qui 
nous met à l'abri des erreurs de cal- 
cul). 


Lignes 167-174. 175-182, 183-189 : 
dans chacun de ces trois blocs. on 
écrit le signe de la caractéristique. on 
transforme la caractéristique en 
chaîne et on la transfère vers EX- 
POSA: si l'exposant ne comporte 
qu'un chiffre. on insère un 0” par 
devant. 


PERRET 
OS 
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FLOAT EQU SEB93 :FAC <= A 

INT EQU SEC23 

FADDH EQU SE7A0 ; FAC <= FAC + 1/2 

FCOMP EQU SEBB2 ; COMPARE FAC AVEC (Y,A) 
FOUT EQU SED34 CHAINE CARACTERES <= FAC 
STROUT EQU SDB3A >ECRIT UNE CHAINE 

CROUT EQU SFD8E : RETOUR CHARIOT 

RETURN EQU SFFS8 : VOIR POM°S 7 PAGES 27-28 
;: <3>-PROGRAMME DE FORMATAGE 


> INITIALISATION EXPOSANT 


» 


LDA #0 
STA EXPO 
STA FINCHA 


> INITIALISATION DE LA CHAINE A ZERO 


LDX #9 
LDA #’0° 
ZERO STA CHAINE,X 
DEX 
BNE ZERO 
LDA #°’+° 
STA SIGMAN 
STA SIGEXP 
LDA #’E° 
STA SYMBEX 
LDA #’.’ 
STA POINT 
: SAISIE NOMBRE A FORMATER 
JSR CHRGET : PASSE LA VIRGULE 
JSR FRMNUM :L’EXPRESSION PASSE EN FAC 
>; SIGNE ET VALEUR ABSOLUE 


JSR SIGN ; À <z SIGNE(FAC) 
BEQ ECRIT :SI FAC = O, TERMINE 
CHP #1 :FAC POSITIF ? 
BEQ ABSO OUT 1 
LDAL ARTS > NON !,ON CHANGE LE SIGNE 
STA SIGMAN ; CONTENU EN SIGMAN 
JSR ABS : FAC <= ABS (FAC) 
ABSO CLV ; PROGRAMME RELOGEABLE 
JSR RETURN ;>VOIR POM’ 7 
BVC FORMAT ; PSEUDO JSR FORMAT 
: ECRITURE DU NOMBRE FORMATE 
ECRIT LDY #<CHAINE ;(Y,A) POINTENT 
LDA #>CHAINE ;VERS CHAINE 
JSR STROUT >ECRIT CHAINE 
JSR CHRGOT ;>PREND LE CARACTERE SUIVANT 
CMP #S3B :EST-CE LE CARACTERE ‘;" ? 
BEQ RETOUR » OUI! 
JSR CROUT :NON! RETOUR CHARIOT 
RTS 
RETOUR JSR CHRGET > SAUTE CE° ;" 
RTS 
; FORMATAGE DE LA VALEUR ABSOLUE 


FORMAT TSX ;CF. POM’S 7 
DEX 
DEX 
TXS 
TENFAC LDY #<TEN ;: COMPARE FAC A 10. 
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Etude comparative des 
routines 
Place mémoire 


Routine Applesoft compactée (sans 
REM} numérotée à partir de 100 de 


10 en 10. 

- programme æ 350 octets 

- descripteurs 3 variables = 21 octets 

- chaîne = 10 octets 

- TOTAL ns ee 
= 381 octets 


Routine assembleur $FA = 244 
octets. soit un gain de 36 % en place 
mémoire. 


Mesures de rapidité 


Exemple 1 : 

FOR 1 = 1 TO 1000 NB = 1 
NEXT 

Temps d'exécution : 3 secondes. 


Exemple 2 


FOR ! = i TO 1000: NB = ll; 
GOSUB 100. NEXT 
Temps d'exécution : 144 secondes. 


Exemple 3. 

FOR 1 = | TO 1000 : CAL: 40961: 
NEXT 

Temps d'exécution : 60 secondes. 


Temps unitaires : 

routine Applesoft. 144—-31000 = 
141 ms 

routine assembleur : 60—-3:1000 = 
57 ms. soit un gain de temps de 
60%. 


Conclusion 


La pauvreté de l'Applesoft amène ré- 
gulièrement le programmeur à écrire 
de petites routines palliant ses défi- 
ciences naturelles. Deux voies s'of- 
frent à lui : le Basic et le langage ma- 
chine. Le Basic est simple à écrire 
mais lent. gourmand en place mé- 
moire et incapable de gérer des va- 
riables locales. Le langage machine 
est beaucoup plus souple d'utilisation 
mais demande un temps de pro- 
grammation plus important et un édi- 
teur-assembleur. Néanmoins. le pré- 
sent article montre que l'utilisation 
intensive des routines présentes en 
ROM facilite grandement ia tâche du 
programmeur. une bonne documen- 
tation s'impose alors. Enfin. la consti- 
tution d'une bibliothèque d'utilitaires. 
que l'on charge selon les besoins. est 
bien plus simple à réaliser en langage 
machine (pourvu que les routines 
soient relogeables) grâce à BLOAD, 
qu'en Basic où il faut jongler avec les 
HOLD. MERGE et compagnie. Un 
premier élément de cette bibliothè- 
que (LlBrary en anglais. d'où le nom 
du code objet) est proposé au- 
jourd'hui. Chacun peut y apporter sa 
pierre u 
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117 
118 
1193 
120 
121 
122 
123 
124 
125 
126 
127 
128 
129 
130 
131 
132 
133 
134 
135 
136 
137 
138 
139 
140 
141 
142 
143 
144 
145 
146 
147 
148 
149 
150 
151 
152 
153 
154 
135 
156 
157 
158 
1359 
160 
161 
162 
163 
164 
165 
166 
167 
168 
169 
170 
171 
172 
173 
174 
175 
176 
177 
178 
179 
180 
181 
182 
183 
184 
185 
186 
187 
188 
189 
1930 
1931 


LDA #>TEN 
JSR FCOMP 
CMP #SFF sA < 10. ? 
BEQ ONEFAC ;OUI! 
JSR DIV10 :FAC <- FAC / 10. 
INC EXPO ;NON! INCREMENTE L’EXPOSANT 
CEC 
BCC TENFAC :SAUT INCONDITIONNEL 
ONEFAC LDY #<DNE ;: COMPARE FAC A 1. 
LDA #>ONE 
JSR FCOMP 
CMP  #SFF SANG AL? 
BNE  ARROND : NON! 
JSR MUL10 ;: FAC <- FAC # 10. 
DEC EXPO : OUI! DECREMENTE L’EXPOSANT 
CLC 
BCC ONEFAC ; SAUT INCONDITIONNEL 


;ARRONDI A TROIS DECIMALES 





ARROND JSR MUL10 3 HULTIPLICATIONS DE 
JSR MULI1O :FAC PAR 10. 
JSR MUL10 
JSR FADDH : AJOUTE 1/2 A FAC 
JSR INT :PREND LA PARTIE ENTIERE 
JSR DIVI0O :3 DIVISIONS DE 
JSR DIVI10 :FAC PAR 10. 
JSR DIV10O 
LDY #<TEN :POUR LE CAS 
LDA #>TEN :OU L’ON PASSERAIT 
JSR FCOMP :DE 3.933S A 10 
BEQ TENFAC ; CORRECTION 
; TRANSFERT MANTISSE DANS CHAINE 
JSR FOUT TRADUIT LA MANTISSE EN CHAINE 
STY FRESPC+1 :ADRESSE TRANSFEREE 
STA FRESPC :EN FRESPC LIBRE 
LDY #0 
MOVMAN LDA (FRESPC),Y ; TRANSFERT VERS CHAINE 
BEG CALEXP : CARACTERE NUL = FIN DE CHAINE 
STA MANTIS,Y 
INY 
CPY #5 ;:5 CARACTERES MAXI 
BNE  MOVMAN 
: TRANSFERT DE L’EXPOSANT 


CALEXP LDA EXPO 


JSR FLOAT :FAC <= EXPO 
JSR SIGN :A <= SIGNE DE L’EXPOSANT 
CMP #SFF :NEGATIF ? 
BNE ABSEXP ;:NON! 
LDA #’-° ;OUI!, CHANGER LE SIGNE 
STA SIGEXP 
JSR ABS 
ABSEXP JSR FOUT : EXPOSANT EN CARACTERES 
STY FRESPC+1 
STA FRESPC ;: POINTEUR 
LDY #0 
MOVEXP LDA (FRESPC),Y 


STA EXPOSA,Y 

INY 

CPY #2 

BNE MOVEXP 

CMP #0 : CARACTERE NUL ? 

BNE FINEXP : NON! 

LDA EXPOSA 

STA EXPOSA+1 

LDA #’0° 

STA EXPOSA :SINON, DECALAGE 
FINEXP BIT RETURN 

RTS 
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D HE AY EU EE LE 
EUUURE 


£ 
Enr 








Programme SCIENT.OBJ 1070- ES A9 13 20 B2 EB C9 FF 





1000- AS OO 8D 60 O2 8D SA O2 1088- EA 20 39 EA 20 AO E7 20 
1008- A2 O9 AS BO SD 50 O2 CA 1090- 23 EC 20 SS EA 20 S5 EA 
1010- DO FA A9 AB 8D 50 O2 8D 1098- 20 SS EA AO EA A9 SO 20 
1018- 57 O2 A9 CS 8D 56 O2 A9 10AO0- B2 EB FO B7 20 34 ED 84 
1020- AE 8D 52 O2 20 B1 OO 20 10A8- 72 85 71 AO OO B1 71 FO 
1028- 67 DD 20 82 EB FO 12 C9 10BO0- O8 99 51 O2 C8 CO OS DO 
1030- O1 FO O8 A9 AD 8D 50 O2 10B8- F4 AD 60 O2 20 93 EB 20 
1038- 20 AF EB B8 20 58 FF SO 10CO- 82 EB C9 FF DO O8 A9 AD 
1040- 16 AO O2 A9 50 20 3A DB 10C8- 8D 57 O2 20 AF EB 20 34 
1048- 20 B7 OO CS 3B FO O4 20 10D0- ED 84 72 85 71 AO OO B1 
1050- 8E FD 60 20 Bt OO 60 BA 10D8- 71 99 58 O2 C8 CO O2 DO 
1058- CA CA SA AO EA AS SO 20 10E0- F6 C9 OO DO OB AD 58 O2 
1060- B2 EB C9 FF FO O9 20 55 10E8- 8D 59 O2 AS BO 8D 58 O2 
1068- EÀA EE 60 O2 18 9O EC AO 10FO0- 2C 58 FF 60 
40 REM RRRRERRRRRRRRRRRRRRRRRER CA% + 1 
392 REM #* FORMATAGE DE NOMBRES # 170 CH$S = CHS + LEFTS ( STRS €NB),1) - 
394 REM + SCIENTIFIQUES * re RIGHTS € STRS {NB),3) + “E 
S6 REM + VERSION EN BASIC . €" 
RP D Rte bio 180 IF CA% < O THEN CA% = ABS (CA%) :CH 
100 CHS = ‘’+0.000E+00":CA% = © S =  LEFTS (CHS,7) + ‘-" 
110 IF NB = O©O THEN 210 190 IF LEN € STRS {CA%)) = 1 THEN CHS 
120" CHS1= 4" IE NB: < O' THEN CHS. = :"-";: = :CHS: + ““O0* 

NB = ABS (NB) 200 CHS = CHS + STRS (CA%):NB = FRE «O 
130 IF NB > = 10 THEN NB = NB / 10:CA*% ) 

= CA% + 1: GOTO 130 210 PRINT CHS: RETURN 
140 IF NB < 1 THEN NB = NB # 10O:CA% = C 990 RER 

A% - 1: GOTO 140 xes PROG.PPAL nn" 
150 NB = INT (NB * 1000 + .5) 
160 IF NB = 10000 THEN NB = 1000:CA% = 1000 TEXT : HOME 

CA%X + 1 1005 PRINT ‘"’CHRONOMETRAGE COMPARATIF 
170 CHS = CHS + LEFTS € STRS (NB),1) + DES VERSIONS 

Men RIGHTS C-STRS (NB) 437: ME BASIC ET LANGAGE-MACHINE 

M DE LA ROUTINE 
180 IF CA% < O THEN CA% = ABS (CA%):CH DE FORMATAGE 

S =, LEFTS (CHS,7) + "=" D 
190 IF LEN € STR$S (CA%)}i = 1 THEN CHS 1010 PRINT “<i>- BOUCLES A VIDE 

= CHS + ‘"O" <2>- BOUCLES BASIC 
200 CHS = CHS + STRS (CA%):NB = FRE (O <{3>- BSUCLES LANGAGE MACHINE 

) <4>- FIN" 
210 PRINT CHS: RETURN 1020 GET AS:A = VAL (CASD: JF À < 1 OR 


À > 4 THEN 1020 
1025 IF À = 4 THEN END 


10 REM +++ PROGRAMME SCIENT.DEM ##« 1030 GOSUB 40: ON A GOSUB 1100,1200,130 
0 
20 PRINT CHRS (4)"BLOADSCIENT.LIB" 1040 GOTO 1000 
30 GOTO 1000 1090 REM 
40 VTAB 20: PRINT “TAPER UNE TOUCHE ET - BOUCLES VIDES - 
DECLENCHER LE CHRONO“: WAIT - 16 
384,128: POKE - 16368,0: RETURN | 1100 FOR I = 1 TO 1000: NEXT I: PRINT 
SO REM CHRS (7): RETURN 
*=" FORMATAGE #+= 1190 REM 
- BOUCLES BASIC - 
100 CHS = “+0.000E+00":CA% = O 
110 IF NB = O THEN 210 1200 FOR I = 1 TO 1000:NB = I: GOSUB 10 
120 CHS = ‘+": IF NB < O THEN CHS = “-": O: NEXT I: PRINT CHRS (7): RETUR 
NB = ABS (NB) x 
130 IF NB > = 10 THEN NB = NB / 10:Cax | 1230 REX 
= CA% + 1: GOTO 130 - BOUCLES MACHINE - 
140 IF NB < 1 THEN NB = NB »* 10:CA% = C 
A% - 1: GOTO 140 1300 SCIENT = 4096: FOR I = 1 TO 1000: C 
150 NB = INT (NB » 1000 + .5) ALL SCIENT,I: NEXT Il: PRINT CHRS 
160 IF NB = 10000 THEN NB = 1000:CA% = (7): RETURN 
ASE 
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Macintosh | 
| Multiplan À | 
|MacPaint 6 


F «| 


\ 
2 Eddie Adam is 
0 


Cedic nathan 


COLLECTE 


votre nouvelle 
ibliothèque Apple 





Sélectionné por Apple 
et Microsoft 


pour découvrir 
Mac Paint 
et Muitiplan 
sur le 
fabuleux Macintosh 


Un livre qui vous permettra d'entrer de plain-pied dans ces 
deux logiciels en découvrant les infinies possibilités du 
Macintosh. 


1C0556 . 89,00 F 


Ecrivons un programme pour Apple 

Pour vous amuser en apprenant la programmation sur un micro- 
ordinateur qui semble doté de pouvoirs magiques. Vous apprendrez 
à lui donner des ordres en BASIC et toutes sortes d'instructions, 
Vous pourrez vous en servir pour dessiner. Vous le comprendrez 


et vous saurez le faire fonctionner en ouvrant ce livre. 
1C0S44 


Vous et lordinateur Apple 


Un livre pour tous ceux qui veulent connaître l'APPLE et s’en faire 

un ami. 

33 leçons pour apprendre à programmer en BASIC. chaque leçon 

est illustrée de commentaires. d'explications. de programmes et 
d'exercices complémentaires *e 
1C0542 129,00 F 


Le Logo sur Apple : a 


S 
Un livre pour faire l'apprentissage de LOGO, un moyen ss? 
d'expression très puissant. D’une façon très vivante, nu 
ce livre explique les étapes à suivre pour concevoir s? 
et réaliser toutes sortes de projets. . à partir de ed 
la tortue LOGO, ce célèbre petit animal S 
cybernétique qui se déplace sur l'écran Fa 
en laissant une trace derrière iui. «& 
1C0543 129.00 F 

Où 


99,00 F 










sit 


Garantissez 


votre succes 


Oui, vous serez assurés d'enri- 
chir votre savoir-faire « micro- 
informatique» indispensable au- 
jourd’hui à la vie professionnelle 


en suivant les conférences de 


MICRO-EXPO. 


Du 22 au 26 mai, dans le cadre | 


de ce 9° Congrès Exposition, à Pa- 
ris au Palais des Congrès, Porte 
Maillot, pour 100F seulement 
vous aurez accès à 40 heures de 
conférences sur : 

Mardi 22 mai : Choisir son mi- 
crooucequ'il faut savoir avant de 
l'acheter; Pionniers US. 

Mercredi 23 mai : Les bases de 
données et leur utilisation (comp- 
tabilité des PME et PMI sur micro 
avec dBASE 2); Un micro-ordina- 
teur, à quoi ça sert? Visi On; 
Initiation au langage Basic; 
Pionniers France. 

Jeudi 24 mai : Informatique et 
Télématique à la ferme organisée 
par l'ISAB: La micro dans l’offi- 
cine; La micro et les médecins; 
Gestion financière avec un ta- 





EE eee EL does +9 EESTI 
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Professionnel 


bleur électronique; Un micro-or- 
dinateur, ça s'entretient; La pro- 
grammation structurée (Pascal et 
Modula H): MS WIN: Initiation 
au langage ADA. 

Vendredi 25 mai : Les enjeux 
du contrat informatique ; Micro et 
ordinateur personnel : les postes 
de travail de demain: Décision- 
nel graphique, représentation, 
communication d'analyse et de 
résultats ; Comprendre la téléma- 
tique. 

Samedi 26 mai : choisirson mi- 
cro ou ce qu'il faut savoir avant de 
l'acheter; Introduction aux mi- 
croprocesseurs. 

Participez à ces conférences. 
vous garantirez votre sUCCès pro- 
fessionnel et deviendrez l’interlo- 
cuteur recherché à plus d'untitre. 
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Cela fait maintenant environ un mois 
que j'utilise régulièrement le Macin- 
tosh, avec en fait trois programmes 
seulement : MacPaint, MacWrite et 
Muitiplan, sur un appareil en version 
U.S. Jai eu l'occasion de le montrer 
à des amis. à des étudiants, à des 
cadres et à des dirigeants d’entre- 
prise Le plus frappant est que, quel 
que soit mon interlocuteur. chacun 
aurait bien voulu en avoir un. On 
comprend pourquoi les américains, 
malgré lusine super-robotisée de 
Fremont, n'arrivent pas à satisfaire la 
demande. Il est question que la pro- 
chaine publicité exploite le thème 
“On savait qu'on en vendrait un mil- 
lien, mais pas en deux semaines ..”. 
Ceci dit, nous faisons un peu les frais 
de cette réussite, puisqu'il faudra at- 
tendre le mois de juin pour pouvoir 
en acheter un en France. 


La souris 


Tout d’abord quelque peu sceptique 
quant à l’intérêt pratique de la souris, 
je dois avouer qu'elle m'a convaincu. 
On s'habitue très vite au confort 
qu'elle apporte, et cela devient d’au- 
tant plus frustrant d'obtenir ensuite 
sur son brave Apple //e le message 
"SYNTAX ERROR" parce qu'on a 
tapé trop vite "CQTQLOG”! La 
souris est agréable car elle permet 
une sélection extrêmement rapide 
d'options dans un menu, mais aussi 
parce que les logrciels ont été conçus 
pour en tirer parti Ainsi, toutes les 
instructions du DOS”, tout ce qui 
revient à demander un catalogue, lire 
un fichier, le sauvegarder, exécuter 
un programme, …, tout cela s'obtient 
exactement de la même façon avec 
tous les logiciels tournant sur Macin- 
tosh. On se demande si cela a en- 
core un sens de réaliser pour ces lo- 
giciels des documentations de plus 
de 10 pages. C’est vraiment très 
agréable de voir tous les logiciels uti- 
liser le même vocabulaire, la même 
syntaxe (si on peut encore parler de 
syntaxe, tellement c'est simple) 


En quoi le Macintosh change:t-il la 
façon de travailler sur des logiciels 
spécifiques tels que le traitement de 
texte où un tableur? 


MacWrite 


Avec MacWrite, on peut réaliser des 
textes impossibles à obtenir avec un 
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Un mois avec le Macintosh 


autre micro-ordinateur (à part Lisa). 
Parvenir à sortir un texte en justifica- 
tion totale avec, dans une même 
ligne, des polices et des corps (tailles) 
de caractères différents, pouvoir en 
outre imprimer tel quel ce qu’on voit 
à l'écran, cela tient du miracle. Bien 
entendu, contrairement à ce que l’on 
voit même sur certains programmes 
de traitement de texte implantés sur 
de gros ordinateurs, on ne perd pas 
la justification avec les trémas, ou les 
accent circonflexes. 


Autre particularité originale de 
MacWrite : la possibilité de récupérer 
nimporte quel texte, dessin ou ta- 
bleau provenant d'un autre logiciel 
pour l'insérer dans le texte. On peut 
même déformer à loisir chacune de 
ces insertons, en les tirant vers le 
bas, vers la droite, . comme si elles 
étaient en caoutchouc. 


Seul inconvénient, relevé d’ailleurs 
par Daniel Garric dans son article 
(Pom's 11}, la taille relativement res- 
treinte (8 pages) du fichier maximal 
actuellement entrable sous MacWrite. 
Mais cela devrait s'améliorer avec 
l'extension de la mémoire centrale 
au-delà des 128K de RAM actuels 
(en plus des 64K de ROM). 


Muiltiplan 


Par rapport à Multiplan sur Apple //e, 
on remarquera les originalités : possi- 
bilité d'imprimer un tableau simulta- 
nément au travail, impression de tra- 
vers pour les tableaux très larges 
{aucun problème, puisque l’Image- 
Writer est une imprimante graphi- 
que). Sur le plan pratique, on cons- 
tate un grand gain de temps pour les 
déplacements dans le tableau {à 
l'aide des curseurs horizontal et verti- 
cal). Il devient enfantin de modifier la 
largeur d’une colonne et de la mettre 
juste à la bonne dimension, ce qui 
demande normalement des tétonne- 
ments pénibles sur tout autre maté- 
riel. Îl n'est plus nécessaire de feuille- 
ter la documentation pour retrouver 
le nom exact ou la syntaxe d’une 
fonction donnée : on fait rapidement 
défiler les noms de fonctions On 
peut définir une largeur de colonne 
nulle, ce qui évite enfin ces dange- 
reux ’Mouvemente” auquel on était 
obligé d’avoir recours pour bien pré- 
senter certains tableaux. Et, finale- 
ment, la récupération de tout ou par- 


Hervé Thiriez 


tie d’un tableau pour insertion dans 
un texte s'effectue sans douleur. 


Il existe aussi un mode ‘entrée de 
données”, dans lequel la grille 
lignes/colonnes n'est plus visible, et 
où les données à entrer sont repré- 
sentées par des pointillés. Cela réduit 
le risque d'erreur. À ce mode est as- 
socié une possibilité de protection 
par un mot de passe : les cellules 
protégées ne peuvent alors être mo- 
difiées ni même consultées. 


MacPaint 


Faut-il encore décrire MacPaint qui 
est probablement le plus montré de 
tous les logiciels car il est ”’bluffant” 
de le trouve excellent, mais j'estime 
cependant les performances obte- 
nues avec MacWrite (et, à moindre 
titre, avec Multiplan) tout aussi sur- 
prenantes. 


Les outils de 
développement 


Ce n'est pas le moment d'oublier 
l'excellent Basic Microsoft du Macin- 
tosh, d'autant plus puisssant qu'il a 
accès à toutes les instructions propres 
au Macintosh et relatives à la gestion 
de la souris, des écrans et des 
menus. Le Macinstosh Pascal, inter- 
prété, avec la possibilité de faire du 
pas à pas et de voir le programme 
sur une partie de l'écran et l’exécu- 
tion se réaliser à côté du listage. Et 
aussi lassembleur 68000. Eogo et 
Prolog. Il y a de quoi faire | 


Les autres logiciels 


Chart (graphiques) est déjà sorti, 
pour être utilisé en relation avec Mui- 
tiplan où Microsoft File. Parmi les cé- 
lébrités, on attend PES, Lotus 1-2-3, 
Microsoft Word, CX Base 200, 
Omnis... Sans oublier bien entenu les 
autres produits naturels” MacTerm 
(communication), MacDraw et Mac- 
Project. Steven Jobs prévoit que 500 
logiciels sur Macintosh seront dispo- 
nibles avant la fin de l’année. Pour 
sa part, Bill Gates, le patron et fon- 
dateur de Microsoft (un gamin, lui 
aussi), s'attend à faire en 1985 la 
moitié de son chiffre d’affaires, pour- 
tant impressionnant, avec des pro- 
duits sur Macintosh. 
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La découverte de l'Apple //c 


Guy Mathieu 


A l'invitation d'Apple, j'ai eu le plaisir 
de visiter avec un groupe de journa- 
listes les installations Apple en Irlande 
et de découvrir le nouveau-né de la 
famille, le /’c. Tout cela en tant que 
représentant de Pom's et dans d'ex- 
celentes conditions d'organisation. 
Bravo, Apple | 


Le /c est petit (6.35 * 30,48 *. 
29.21 en cms.), pas bien lourd (3.4 
kgs) et vous sera vendu dans une 
boîte en carton jetable. Ne croyez 
quand même pas qu'il se suffit à lui- 
même. L'alimentation (12 volts à 
l'entrée de la machine} est un boîtier 
séparé inclus dans le « paquet ». 
Notez toutefois que rien ne vous em- 
pêche de vous brancher sur l'allume- 
cigare de votre voiture. Une batterie 
faite sur mesure est enfin en prépara- 
tion chez Apple. 


Il vous faudra bien sûr un écran. 
Rien à voir avec celui du grand frère 
Macintosh. Ses parents ont sorti en 
son honneur un moniteur compact 
9 pouces de très bonne définition. 
Vous pouvez aussi utiliser directe- 
ment votre téléviseur pour peu qu'il 
accepte une prise Péritel. Un télévi- 
seur Thomson, nouveau. compact lui 
aussi et fonctionnant sous 12 volts, 
présente de même bien des avanta- 
ges. En préparation aussi. un écran 
plat de 24 lignes et 80 colonnes {fin 
84?) ainsi qu'un moniteur couleur 
d'excellente définition. 


À l'intérieur du //c (attention. vous 
perdez le bénéfice de la garantie si 
vous l'ouvrez — tant pis pour les bri- 
coleurs). 128K de RAM lle Basic Ap- 
plesoft, complété par des instructions 
« souris », se trouve dans les 16K de 
ROM). En standard. 80 colonnes. ou 
40 obtenables par une astuce lle 
contraire de l'Apple #/c). Un lecteur 
de 143K hélas intégré (bon point 
pour la portabilité mauvais point 
pour la maintenance) Un mode 
haute résolution simple de 80*192 
en six couleurs. Et un mode super- 
résolution de 560*192 en 16 cou- 
leurs. Le microprocesseur un 
65C02 fonctionnant à 1 MHz. et 
possédant 27 instructions internes de 
plus que le 6502. 


Au-dessus du /ic, un clavier bien des- 
siné. mais sans bloc numérique, en 
Azerty pour la version française, mais 
pouvant simuler le Querty. Tiens, le 
« Shift Lock » verrouille aussi ies chif- 
fres ! On peut aussi régler le volume 
du haut-parleur, et même brancher 
un casque ou un haut-parleur ex- 
terne. 
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Derrière le //c. un lot de connec- 
teurs: RS232 (imprimante 9600 
bauds}. connecteur pour second lec- 
teur de disquettes (et pas plus...) 
prise vidéo standard et prise RVB 
Chat Mauve, RS232 (modem 300 
bauds}), prise à 9 broches pour man- 
che à balai (joystick), manettes 
{paddles) ou souris. Pas de disque 
dur envisagé. mais peut-être un jour 
des disquettes 3.5 pouces comme 
pour le Macintosh. Remarque : les 
lecteurs de disquettes du //e ne sont 
pas compatibles, n'en déplaise aux 
« cannibales ». 


A côté de tout cela. plusieurs dis- 
quettes d'initiation. y compris une 
initiation au langage Logo. Le sys- 
tème d'exploitation normal est le 
ProDOS. mais on peut travailler en 
DOS 3.3 et en Pascal 


Et le prix? Pour l'unité centrale et 
l'alimentation, le tout dans la boîte 
en carton. 12 900 F TTC. Environ 
2000 FF pour l'écran Apple ou 
3 900 FF pour le téléviseur Thom- 
son. L'écran plat reviendra à 5 à 
6 600 FF. Un peu plus de 3 000 FF 
pour le second lecteur L'imprimante 
normale est l'ImageWriter. 


Du côté des logiciels. compatibilité à 
peu près totale avec les logiciels de 
l'Apple ‘le. Le logiciel sélectionne 
l'option 80 ou 40 colonnes. Si cette 
sélection n'est pas prévue dans le lo- 
giciel, un inverseur manuel permet 
d'y remédier. Il semble que quelques 
problèmes de compatibilité subsistent 
encore au niveau d'une interférence 
avec l'option «souris». laquelle re- 
vient à environ 900 FF. Un nouveau 
venu, disponible en anglais, pro- 
grammé pour cet été en français, Ap- 
pleWorks : traitement de texte. ta- 
bleur et gestionnaire de fichiers. 
Deux fenêtres. une dans laquelle on 
travaille, l'autre indiquant avec quoi 
on peut travailler et ce qu’on peut 
faire. Prix annoncé: de 2000 à 
2 500 FF. 


Autre nouvelle : Applebus accueillera 
bientôt des modèles variés de micro- 
ordinateurs en mettant en commun 
une imprimante laser (50 000 FF) et 
un serveur disque de 20 à 70 méga- 
octets. Vitesse de transfert : 230 kilo- 
bauds. La connexion à 500 FF par 
appareil Présentation au SICOB 
pour une disponibilité en fin 84. 
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Voici une petite application inspirée 
par le programme LINEFEED de la 
disquette APPLES. Pour les irréducti- 
bles du Basic, il manquait en Pascal 
les instructions PEEK et POKE. Ce 
n'est plus qu'un mauvais souvenir 
aujourd'hui avec PEEPO, un pro- 
gramme introduisant la fonction 
PEEK et la procédure POKE. 


Le programme 


MOT représente une unité de mé- 
moire Pascal. c'est-à-dire 16 bits sur 
deux octets. 


BIFACE est un enregistrement dont 
les deux champs ADRESSE et 
CONTENU sont confondus. 


ADRESSE est un entier sur 16 bits. 


CONTENU est un pointeur. c'est-à- 
dire une adresse sur 16 bits Les 
deux champs sont à la même place 
en mémoire. 


Une référence à ADRESSE donne 
donc accès à cette zone. Une refé- 
rence à CONTENU -> lO! donne 
accès au premier des deux octets du 
mot que pointe CONTENU. C'est 
donc l'octet dont l'adresse en mé- 
moire est ABRESSE 


Utilisation 


La dernière partie du programme il- 
lustre son utilisation. On commence 
par POKEr une ligne blanche et 
écrire un texte. I] sufht de choisir les 
adresses à partir de 1024 {mémoire 
écran texte) pour les PEEKSs. pour 
constater que le PEEK fonctionne 
bien et retourne effectivement les 
codes ASCII de Fécran ligne par 
ligne; en 48 colonnes. tout se passe 
bien: en 80 colonnes. cela renvoit les 
codes correspondant à une colonne 
sur deux. 


Précaution 


L’instruction POKE est à utiliser avec 
prudence. Le système Pascal réside 
en mémoire vive: il est donc assez fa- 
cile à détruire. = 





Les recueils de Pom’s 


Le Recueil N° 1 de Pom's étant 
épuisé, nous avons décidé de le 
retirer pour ne pas léser les pos- 
sesseurs récents d'Apple. Le pa- 
pier avant fortement augmenté 
depuis le trage initial, le prix est 
passé à 130 FF. Il en est de même 
pour le Recueil N° 2 qui vient de 
sortir — veuillez nous pardonner 
l'erreur de la première annonce. 





PEERKSs et POKESs 
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en Pascal 


Jacques Pino 


FROGRAA PEEPD; 


VAR 1,J.1,Y : INTEBER: 
FUNCTION  PEEXADRS : INTEGER) : INTEBER: 
TYPE MOT = PACKED ARRAYIO.. 1) OF 0. .255: 
RIFRCE = RECORD CASE BOOLERN OF 


ARS ONITEEEMENNERES 


TRUE : (ADRESSE : INTEGER): É 
FALŒ : (CONTEN) : “MOT) Et 
EM: be. 
VAR PEEXPOHET : BIFRE; Fe 
i43 
BEGIN El 
PEEXPORET.ADRESSE := ADRS: É 
PEEK := PEEKPOKET. CONTENUE0] fé 
END: br 
PROCEDURE POKE{ADRS, VAL : INTEGER): 
TYPE AOT = PACKED ARRAYEG.. 11 OF 0..255;: 
BIFACE = RECHRD CASE BOULEAN OF 
TRUE : (ADRESSE : INTEBER) : 
FALSE : (CONTEM) : “MOT) 
END: 
VAR PEEXPOET : BIFACE: 
BEGIN 
PAEKPOKET.RDRE SSE := ADRS: 
PEEKPOKET, CONTEMP"EON 52 VAL 
END; 
{a Petits exemples d'utilisations de PEEK et POXE #) 
BEGIN PAGE {OUTPUT ): WRITELN: WRITELN: LR | 
FOR 1:=0 TG 39 DO PCKE{1024+1,32): {+ ))} LIGNE BLANCHE #) 
CARRE) 
WRITELNULN PETIT DUMP’): WRITELN(? —?); WRITELN: 
CRE) 
FOR !i= : 70 100 DO X:=PEEK(-16336): (4 )}} HAT-PARLANR #) 
CERN À 
REPEAT WMRITE !” ADRESSE -—) ?), REANIX): 
WRITEUNOKBRE D’'OCTETS—) *): READUN(Y): 
WRITELN: 
IF Y=0 THEN BEGIN HRITELN: WRITELN{'QLE PEFPG SDIT AVEC VOUS... ’);: 
EX1T (PROGRN) 
END 
ELSE Y:=X4Y: 
REPEAT WRITEUX:6, °1°): 
FOR J:=0 T0 7 DO WRITE(PEEN(X+H):6): 
WRITEN: 1:=X+8 
UNTIL X)Y: 
HRITEILN 
INTIL FALSE 
EXB. 
D 
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Disquettes de jeux 


Oliver Herz 


Pom’s est heureux de pouvoir vous 
proposer deux disquettes de jeux au 
prix modique de 80 francs pièce. Ces 
disquettes sont composées avec les 
contributions de quatre fidèles lec- 
teurs. Ces jeux, dont l'intérêt n’a rien 
à envier à l'ergonomie, sont variés, 
allant du labyrinthe au jeu d’adresse 
en passant par le jeu de réflexion. Si- 
gnalons que, de plus, ces jeux sont 
écrits en Applesoft (certains d’entre 
eux sont aussi fournis sous forme 
compilée}). et qu'ils présentent donc 
un grand intérêt didactique. 


Disquette de jeux A 


Labyrinthes - Jackpot - Paires 
Awari - Chiffres en lettres - Multi - 
Pendu - Souris - Eve - Adam et Eve 
- Jeux à deux - Traclab 

Les sept premiers programmes vien- 
nent de Jacques Duma. les autres de 
Joël Lecoeur. 


Labyrinthes 


Ce petit programme est présenté 
comme un jeu, mais son originalité 
principale réside dans l'algorithme de 
génération du labyrinthe. On voit se 
construire dans un rectangle un laby- 
rinthe aléatoire qui. de plus, possède 
une propriété remarquable : si l'on 
prend deux cases quelconques du 
rectangle, il n’y a qu'un seul chemin 
possible pour les relier. 


l suffit de suivre les instructions pour 
jouer. Î Vv a deux versions du jeu, 
LABYRINTHE 2D en deux dimen- 
sions et 3D en trois dimensions. 
Avec la version 2D, on voit le plan 
du labyrinthe et il suffit de trouver la 
sortie le plus rapidement possible. Si 
l'on fait ‘?”, la solution est fournie 
par le programme. 

Avec 3D, on est à l’intérieur du laby- 
tinthe et seuls les couloirs sont visi- 
bles. Quelques indications d'orienta- 
tion sont fournies Si l’on fait “+”, 
on tourne sur place et le plan devient 
visible quelques secondes. Le ‘"?”, 
cette fois, termine le programme sans 
donner la solution. 


NDLR : Jacques Duma nous a 
fourni une troisième version qui est 
la même que la version 2D. mais 
compilée avec Expediter IL Elle est 
donc beaucoup plus rapide. Rien de 
vous empêche d'essayer de compiler 
d’autres jeux avec l'un des compila- 
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teurs Applesoft existant sur le mar- 
ché. 


Jackpot : il s’agit du jeu de casino. 
distravant et utilisant au mieux les 
possibilités graphiques en basse réso- 
lution. 


Paires : aussi appelé ‘jeu de la mé- 
moire” Il s’agit de retourner des 
paires de cartes. On peut jouer seul 
contre l'ordinateur (en réglant sa mé- 
moire . .) ou à plusieurs. 


Awari. c'est une version particulière 
d'un jeu africain classique. La straté- 
gie programmée est simple : à cha- 
que coup. l'Apple prend le plus 
grand nombre de pions possible. 
Cette stratégie est faible. on peut bat- 
tre le programme. Qui peut trouver 
mieux ? 


Chiffres en lettres : ce programme 


écrit en lettres un nombre donné en 
chiffres. 


Multi: un Jeu réécrit pour l'Apple 
d’après une idée trouvée dans un 
des premiers numéros de l'Ordina- 
teur Individuel. 


Le Pendu est un grand classique. 
Dans la version facile, on a dix coups 
pour trouver le mot inconnu: dans ja 
version difficile, on n'a que cinq 
coups. Les mots sont choisis parmi 
333 d'une liste donnée en DATA 
qu'il est facile de modifier, à condi- 
tion de modifier aussi le nombre de 
mots de la liste, indiqué au début de 
celle-ci. 


Souris, Eve, Adam et Eve, Jeux à 
deux, Traclab 


Ces programmes. basés sur les laby- 
rinthes, sont fort didactiques. Ce sont 
des jeux avec divers degrés de diff- 
culté, ainsi qu'un défi que les ama- 
teurs relèveront sans doute (du 
moins le tenteront-ils). 

Il y a en fait 4 programmes et 2 
tables de formes: et si votre Apple a 
déjà ingurgité la disquette. vous pou- 
vez voir également une dizaine de 
"’LABYRINTHE N° qui sont des 
images basse résolution de labyrin- 
thes servant d'exemples à la dé- 
monstration. Ils ont été dessinés avec 
le programme TRACLAB, assez 
court, simple à utiliser et surtout bien 
utile pour le défi que lance EVE. 


Le défi d'EVE est le suivant « nul 
tracé ne m'arrête. je trouve toujours 
la Pomme ». Le jeu vous permet de 
tracer avec TRACLAB un lavrinthe et 
de voir EVE relever son défi: vous 
pouvez aussi la voir se faufiler à tra- 
vers l’un des 10 labuyrinthes proposés 
sur la disquette. Dans la formule de 
jeu « Adam et Eve » vous vous trou- 
vez en concurrence avec EVE pour 
la course à la Pomme La formule 
« Jeux à deux ». enfin. autorise le jeu 
à deux joueurs. 


Disquette de jeux B 


Draw Poker 
Poker 

Les trois premiers programmes ont 
été réalisés par Marc Bideault. le der- 
nier par Alban Liger. 


Quandarvy - Simon Il 


Draw Poker est un jeu de hasard. 
basé sur le principe des combinai- 
sons du poker Heureusement pour 
lui. le joueur peut. à l'aide d'un para- 
mètre. se donner plus ou moins de 
chance. On mise. on distribue une 
main de 5 cartes. on sélectionne les 
cartes à remplacer {si nécessaire). 
Quand on gagne. on peut Jouer le 
gain à quitte ou double en pariant. 
après avoir vu une carte tirée par 
l'ordinateur. sur le fait que la carte 
suivante (tirée elle aussi au hasard) 
sera plus petite ou plus grande. 


Quandary est un jeu de stratégie 
dans lequel chaque adversaire pos- 
sède quatre pions dans un échiquier 
coloré. En suivant certaines règles de 
déplacement. il faut être le premier à 
faire atteindre le bord opposé à l'un 
de ses pions. Ce jeu possède trois ni- 
veaux de jeu et est loin d'être imbat- 
table. La couleur (ou de très bons 
yeux) est indispensable. Une version 
compilée par Tasc est fournie sur la 
disquette. afin d'accélérer le proces- 
sUS. 


Simon IL quant à lui ne se pré- 
sente plus. s'agit du célèbre jeu de 
séquences sonores et colorées à mé- 
motiser 


Poker est un programme de jeu qui 
reproduit sur l'Apple le jeu de Poker 
commercialisé sous forme de jeu 
électronique de poche. Il s'agit d'un 
poker très rapide. sans changement 
de cartes. 
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Apple-Tellestunsystème qui fait d'unsimple Apple 
(votre Apple de tousles jours) un minitel intelligent 


Anole -7el corprenw: 


— une carte Modem inchæntun déCOdur Teletel 
- Un logiclel d'Emuation de Terminal Minitel enrichi de trots ébteulssantes fonctions (celles qui 
faisalent le plus défaut jusqu'à présent sur votre minltel) : 


IMPRESSION : l'imprimante æ voire Ago/e est exploitée pour sortir les coples papler dont vous 
avez besoin lorsque vous censultez Un serveur. 


SICCKAGE : les disquettes œ votre Age sont ut!lisées pour enregistrer les pages dont 1a 
cohsuit ation vous est nécessaire : 
+ au format Teletel (c'est-à-gire telles que vous les avez reçues), 
* en mode Texte pur (ASCII) pour exploitation locale ultérieure. 


AUTOMATISME : l'intelligence æ vatre Ago/e est mobliisée pour accomplir l'interrogation 
automatique du serveur que vous avez désigné (appel téléphonique, orientation TRANSPAC, 
Identification ,cheixsuccessifs), enregistrer sur papler et/ou sur disque les données 
consultées, puis pour trattercelles-ci,en les incorporant dans votre application. 

(Les Procédures d'interrogation sont créées par l'utilisateur, sans aucun 
langage de programmation, grâce au mode Apprentissaged’Apple-Tell.) 


Evénement du demier SICOB, salué par toute la presse, consacré Pernme d'Or 1983 par le Jury 
Apple, le système Apple-Tell marque une mutation décisive dans l'évolution des techniques 
videotex en environnement prefessionrel : 

epoint d'arrêt à la proliférationdes matériels sur votre bureau(effet “mini-Sicob") 

“itilisation optimale des resseurces dont veus disposez déjà(disques, imprimante, logiciels etc.) 
-ut{iisation possible en mode Terminal autant qu'en mode Serveur (Jusqu'à six portes), 

senfin (et c'est sans doute le point le plus important)}JONCTION entre le mandeextérieur et et les 
outlis standard de votre Apple : l'incorporation de données dans Apple-Writer, Visloalc, 


Multiplan, PFS, Quick-File, etc. et même dans vos applications personnelles (comptabilité, sulvl 
de commandes, fichier . devient possible. 








Caractéristiques générales : e Sortles : video composite (N88) et Peritel 
+ Modem multimodes : couletir. 

—-1200/75, 1200 (half-duplex), 

600 (haif-duplex), 300 (full-duplex), + Compatible Apple 2, Apple 2+, Apple 
-Standards CCITT et BELL (cette (48k, une disquette) 

caractéristique unique rend accessibles les + Enfichable dans n'importe quel siet libre de 
serveurs nord-américains, y compris par votre Apple 2. L 
réseau télépnonique commute), + Transparence totale vis-à-vis du système. 





BON DE COMMANDE 


HELLO Informatique - 1, rue de Hetz 75010 PARIS 
Tél : (1) 523 30 34 - Telex : FLASH 210500F 


Nom Société 





Adresse complète 


ville Cede Postal té1. 





(3 Sounaite recevoir Une cocumentation sur le systeme Apple-Tell 
[] commande [_] système(s) Apple-Tell au prix de F. 5900 H.T. 
fèglement ci-joint par : [] chèque bancaire (EP ce) 
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VOUS PROGRAMMEZ SUR APPLE 
VOUS VOULEZ GAGNER DU TEMPS 
VOUS CHERCHEZ À AMELIORER VOS CAPACITES 


LIGHT EST FAIT POUR VOUS umo ronicior 


LIGHT est un ensemble de puissants logiciels 
d'aide à la programmation conçu pour: 
- mieux gérer les fichiers et les disquettes 
mise à jour d’un catalogue général 
état des secteurs libres sur un disque 
- faciliter l’exploration et l'exploitation des disquettes 


accès direct, lecture, écriture des secteurs 
transfert et recherche des séquences d’octets 
- accélérer l’analyse de vos programmes 
en Basic: recherche des tokens et des suites désignées 
en Binaire: impression en désassemblé 
de séquences d’octets; pistage en tout ou 
partie du déroulement 


P@UR EN SAVOIR PLUS SUR ÉIGHT . 
M. 


adresse 











demande une documentation complete, sans engagement de sa part, aux Années Nouvelles, 70, rue du Javelot, 75013 Paris. 


MODEMS TELSAT 


L' ACCES DE VOTRE MICRO ORDINATEUR AUX BASES DE DONNEES 
PAR LE RESEAU TELEPHONIQUE 





TELSAT 440 TELSAT 640 
Modem 300 bit/s fuli duplex Modem 600/1200 bit/s full duplex 


Ces produits font partie de la gamme complète de modems, multiplexeurs et 
équipements de réseaux de transmission de données TELSAT distribués par 


international 69_71rue du CHEVALERET 75013 PARIS 
Tél. 5841475 Telex 204120F 
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Imprimez les codes ESC de votre PILE 


Vous connaissez la phrase tradition- 
nelle APRES avoir découvert PLE (le 
Program Line Editor. voir Pom's nu- 
méros 1 et 7} ‘Comment pouvais-je 
faire AVANT ?”. Pour ma part. je me 
suis découvert le besoin de plusieurs 
PLEs: un PLE standard. un PLE 
pour les programmes graphiques. un 
PLE pour les travaux sur fichiers. etc. 


Mais. comment faire pour s'y retrou- 
ver plusieurs mois après la créahon 
dun nouveau PLE? La méthode 
des essais est bien sûr efficace. mais 
rustique et fastidieuse J'ai donc écrit 


permet de la détecter. En mémoure. 
les codes sont composés de la facon 
suivante : 


e Premier caractère — 
pée après ESC. 

e Caractères suivants = ce qui ap- 
paraîtra à l'écran. tous les octets 
étant supérieurs à 128 ($801. 

e Le caractère de fin de code est in- 
férieur à 128. 


touche frap- 


Pascal Fontanier 


Le programme a été écrit pour fonc- 
tionner sur Apple Il Plus 48K avec 
une imprimante Epson MX82 Si 
vous utilisez une autre imprimante. 
vous aurez peut-être à modifier les 
lignes 250 {qui sélectionne les carac- 
tères U S.), 270. 480. 620 et 700. 


Si vous ne désirez pas avoir la liste 
imprimée dans le désordre. suppn- 
mez les lignes 270 et 280. B 





Exemple de sortie dans l’ordre ASCII 





| 


an 
Lt 
le programme suivant. qui affiche les <ESC> = * RECURSIF #* à 
caractères tapés après la touche ESC ESC CCE) = C(G)C(G)C(X) 
et leur signification. dans l'ordre où ESC ! = ?TAB(20-LEN(ZYS)/2) £ 
ils sont en mémoire, puis rangés par ESC “ = 7DS" ss 
erdre ASCII ESC # = CALL-151 <RETURN> 
ae ESC O = SPEED=-255S 
Pour utiliser ce programme. chargez ESC 1 = LEFTS( 
PLE. puis lancez le programme ESC 2 = MIDS 
PRINT PLEESCAPE ESC 3 = RIGHTS 
£ : ESC 4 = CHRS( 
e Le programme détecte l'absence ESC 5 = STRS 
de fichier PLE en mémoire. ESC 6 = SPEED- 
e Puis vous demande le nom de ESC 7 = CALL 
votre PLE sur votre disquette. la ESC 8 = PEEK( 
date. et vous rappelle d'allumer ESC 9 = POKE 
votre imprimante. Cela fait. ap- ESC : = APPEND" 
puvez sur n'importe quelle touche ESC < = OPEN" 
“ SE Roms Ont SAMIS CRE LESC G'H2PEER (36): Y=PEEK (97) 
JRN> : ce qui s'affiche à l'écran _ É 
AE s ESC: > = CLOSE 
est alors suivi d'un ‘retour cha- ESC ? = ?TAB( 
ie qui vous évite d'avoir à le ESC À = CATALOGD?  <RETURN> 
aper. Fe 
e D'autres items sont suivis de x ESS E = PERD 
RECURSIF x. ce qui signifie quil ESC E ere ; 
nest pas nécessaire de retaper ESC H = FLASH: 
ESC pour obtenir de nouveau le ESC I = <ESC> D + RECURSIF + 
résultat désiré. Une application ESC J = <ESC> B * RECURSIF 
évidente est disponible d'origine ESC K = <ESC> À * RECURSIF * 
sur l'Apple ESC LJ.K.M permet- ESC L = LIST <RETURN> 
tent les mouvements du curseur ESC M = <ESC> C * RECURSIF * 
dans les quatre directions. ESC N = NEXT 
e Certains items. enfin. compren- ESC O = ONERRGOTO 
nent des caractères de contréie ESC P = INPUT 
qui sont alors imprimés comme ESC Q = CATALOGDI <RETURN> 
suit : C{X) correspond à CTRL-X ESC R = RETURN <RETURN> 
ESC S = GOSUB 
Le programme est suffisamment do- ESC T = TEXT:HOME:SPEED=25S:NORMAL:DS$S=CHRS (4) <RETURN> 
cumenté pour être compris facile- ESC U = NORMAL: 
ment. Il suffit de savoir que les codes ESC V = INVERSE: 
ESC sont rangés en mémoire à partir ESC W = WRITE" 
de l'adresse 39858 ($9BB2) La liste ESC X = RESUME  <RETURN> 
des codes se termine par Ü. ce qui ESC Z = THEN 
10 REM FHMMERNMNNX NH M DONNE OM NOM ON ON À 18 REM Æ Æ 6 D 6 M 6 2 € € NN EN NN M € À 
11 REM * * 
SE * PASCAL FONTANIER « 100 TEXT : HOME : SPEED= 255: NS8RMAL :B 
et ; . $ = CHRS (4) 
re * PRINT PLE.ESCAPE « 110 INVERSE : PRINT “ IMPRESSION DES 
15. REM * ici CODES ‘ESC’ DU PLE PASCAL 
RL RS: VERSION re FONTANIER - OCTOBRE 1983  ==== 
17 REM # LS EZ=ZZZ===z=======================-- 
SR 
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120 


130 


140 


150 


160 


170 
180 
130 
200 
210 
220 


230 
240 


256 


260 


270 


280 


290 


300 


310 
320 


330 


340 


350 


360 
370 
380 
3930 
400 


410 


420 
430 


==="; POKE 34,4 


##e 


#ex PLE IN SYSTEM ? 
PEEK (1011) + 4: 
K {378) THEN 170 
PRINT CHRS (7); CHRS (7); CHRS (7) 
: PRINT INVERSE : PRINT ‘sex PL 
E N’A PAS ETE CHARGE #*xx*': PRINT 
: PRINT NORMAL 
FLASH PRINT ‘“CHARGEZ LE": PRINT 
PRINT NORMAL : PRINT “ PUIS RE 
CHARGEZ CE PROGRAMME": PRINT : EN 
D 
REM 


IF Q < = PEE 


#*« PLE EST BIEN PRESENT ##e 


NORMAL 

DIM S55(100) 

INPUT ‘NOM DE LA VERSION DU PLE 
; NOMS 

PRINT 


PRINT : PRINT 
INPUT “DATE : ‘“;DAS 
ADR = 39858: REM ADR CODES ESC 
N = N + 1: REM NOMBRE D'’ELEMENTS 
PRINT PRINT INVERSE : PRINT ‘“A 
LLUMEZ L’IMPRIMANTE ‘“;: NORMAL : 
POKE - 16368,0: GET Z2S: PRINT 
PRINT DS"PR£1": PRINT CHRS (27); C 
HRS (82); CHRS (O0): PRINT : PRINT 
: PRINT DS"PR£O'": REM 3 CHRS = 
PRINT USA 
NOMS = NOMS + Rs 
N {NOMS) 
PRINT DS"PR£1": PRINT NOMS;" 
DANS LE DESORDRE" 
FOR X = 1 TO NO + 25: 
EXT X: PRINT : PRINT 
REM 


DAS:NO = 


PRINT “=";5 N 


#“#« ANALYSE DU CODE ESC’ 


## # 


IF PEEK (ADR) = O THEN PRINT ‘"--- 
PRINT : 
RI 
Y =  PEEK (ADR) 
IF Y < 128 THEN 390: 
15 
IF Y = 155 THEN SS(N) - 
SC> “: GOTO 370 
IF Y > = 240 AND Y < 250 THEN Y - 
Y - 24O0:SS(N) = SSCN) + STRS (Y) 
GOTO 370 
IF Y > 127 AND Y < 1593 THEN SS(N) = 
SSCN) + "CC" + CHRS CY - 64) + 
“)": GOTO 370 
SSCN) = SSCN) + 
ABR = ADR + 1: 
REM 


PRINT : GOTO 480: REM T 


REM FIN DE COD 


SSCN) + “<E 


CHRS (Y) 
GOTO 310 


##« FIN DE CODE ###« 


IF Y = 13 THEN SS(N) = 
RETURN>": GOTO 430 
IF Y - 127 THEN SS(CN) = 
# RECURSIF #‘*: GOTO 430 
IF Y < 26 THEN SS(N) = SS(N) + “C(" 
+  CHRS (Y + 64) + “) “2: GOTO 43 
0 
SSCN) = SSCN) + CHRS (Y + 128) 
IF LEN (SS(CN)) > S THEN IF 


SS{N) + “ «< 


SSCN) + ” 


LEFTS 











(SS(N),5) = “<ESC>" THEN SS{N) = 
““<ESC> = * RECURSIF *#“: GOTO 460 
440 IF LEFTS (SS(CN),2) = “C{" THEN SS( 
N) = "ESC “ + LEFTS {SS(N),4) + 
oz "+ MIDS (SS(N),5): GOTO 460 
450 SS(N) = “ESC “* + LEFTS (SS(N),1) + 
SRE AE MIDS (SS(CN),2) 
460 PRINT SS(N):ADR = ADR + 1:N = N + 1 
: GOTO 300 
470 REM 
“He TRI ### 
480 PRINT DS'"'PR£O" 
430 FLASH : PRINT “PATIENTEZ, S.V.P.,": 
INVERSE PRINT : PRINT “JE TRIE 
LES CODES PAR ORDRE A.S.C.I.1.": 
NORMAL 
500 M = N 
QLOMI= INT. CM </ 2) 
520 IF M = O THEN 620 
530 P = N - M:J = 1 
540 I = J 
550 L = I + M 
560 IF SS(I) < = SS(L) THEN 590 
570 WS = SS(I):SS(I) = SS(L):SS(L) = WwsS 
SBOC TI Er = ME IF T> = 1 THEN SS0 
590 J = J + 1: IF J > P THEN 510 
600 GOTO 540 
610 REM 
*#x IMPRESSION TRIEE x#+# 
620 PRINT DS"“PR£1" 
630 PRINT NOMS;" DANS L’ORDRE ASCI 
1" 
640 FOR X = 1 TO NO + 24: PRINT “=":: N 
EXT X: PRINT PRINT 
650 FOR X = 1 TO N 
660 PRINT SS(X) 
670 NEXT X 
ÉBOVPRINTIS- "= EEE SES SSSR See 
Rss “2: PRINT : PRINT “FIN DE *‘: 
NOMS: PRINT : PRINT PRINT 
690 PRINT DS"PR£O" 
700 PRINT PRINT INVERSE :% PRINT “UN 
DOUBLE ? (O/N) “:: GET 2Z2S 
710 NORMAL 
720 IF 222$ = “O" THEN PRINT : GOTO 620 
750 TEXT : NORMAL : CALL 38656: END 
65535  REM 


PASCAL FONTANIER 
PRINT PLE.ESCAPE 
OCTOBRE 1983 
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Contrairement à ce qu'affirme Olivier 
Herz dans le Courrier des Lecteurs 
du numéro 10 (je ne suis pas peu 
fier de le prendre en défaut), il est 
possible de tracer des cercles sans 
calculer de sinus ni de cosinus. Le 
principe est le suivant : 


Si les deux suites de nombres X{n) et 
Y(n) sont définies par récurrence par 
les formules : 


X(0)=R (par exemple) 
Y(0}=0 
Y(n+1)=Y{(n)+exX{n) 
Xin+1)=X{(n)-exY(n+1) 


ls points de coordonnées X{n) et 
Y{n) s'inscrivent sur une elipse 
d’équation : 

XaX + exXxY + YxY = RxR 


Il suffit de donner une petite valeur à 
e pour que l’ellipse soit indiscemable 
d'un cercle L'intérêt de cette mé- 
thode vient de ce qu'elle est stable : 
les erreurs de calcul ne s’accumulent 
pas. 


Pour des raisons évidentes. j'ai choisi 
la valeur e=1/256, qui donne un ex- 
cellent résultat au point de vue gra- 
phique, mais peut-être pourrait-on 
accélerer un peu le programme en 
prenant e=1/128 ou 1/64? Je ne 
suis pas un spécialiste de jl'assem- 
bleur; essayez donc vous-mêmes si le 
coeur vous en dit Dans le même 
ordre d'idées. la routine actuelle 
n'accepte que les centres sur l’écran, 
et les rayons inférieurs à 256. 


Vous trouverez ci-après, comme sur 
la disquette d'accompagnement de 
ce numéro, le programme source 
CERCLE en DOS Tool Kit, la ver- 
sion code CERCLE .OBJJ0 et un pro- 
gramme de démonstration en Basic. 





= 
Programme CERCLE 
DOS Toolkit 
1 RAYON EQU S$300 
2 CX EQU S$301 
3 CY. EQU 5$5303 
a COS EQU S6 
5 SIN EQU S8 
& PLOT EQU sSFr457 
7 »* 
8 * 
9 ORG 5304 
10 *# 
11 * 
12 INIT LDA RAYON 
F3 STA COS+1 
14 LDA #50 
19 STA SIN+1 
16 STA SIN 
17 STA COS 
18 JSR  ECRIS 
19 * 
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VARY 


VARX 


AE 


ECRIS2 


T7 


T6 


T8 


SEC 


RTS 


LDA 


BCS 
JSR 


PHA 


CLC 
ADC 
BCS 
LDY 


PHA 
JSR 
SEC 


LDY 


rapide de cercles 


ECRIS2 
CY 
SIN+1 
RETOUR 


CX 


Dominique Bernardi 


78 TAX 

79 PLA 

80 JSR PLOT 
81 JMP RETOUR 
82 T9 TAX 

83 PLA 

84 LDY CX+1 
85 BEQ RETOUR 
86 DEY 

87 JSR PLOT 
88 RETOUR RTS 


CERCLE. OBJO 


0384- AD 88 03 45 

0304- 07 A8 00 85 69 85 08 85 
0310- 86 20 35 03 18 À 08 65 
03i8- 07 45 88 90 (5 EB 093 20 
0320- 35 03 38 AS 0$ ES 03 &5 
0328- 06 BO E9 CE 07 20 35 03 
0330- A5 07 D EO 60 AD 03 03 
0358- 18 65 09 BO 07 C9 CO BO 
0340- 03 20 4C 03 38 AD 03 0 
0346- ES 03 90 49 48 AD Ot 03 
6350- 18 65 07 BO 12 AC 02 03 
0ISB- FO C4 C9 18 BO 19 AA 68 
056 48 20 57 F& 4C 77 O3 AC 
0368- 02 03 D9 OB C9 18 BO 07 
9370- AA CB 6B 46 20 57 Fà 38 
037B- AD 01 03 ES 07 90 0B Æ 
0380- 02 03 AA 68 20 57 F4 4C 
0388- 95 03 AA 68 AC 02 03 F9 
0390- 04 84 20 57 F4 60 


Programme 

CERCLE DEMO 

10 DS = CHRS (4): PRINT 
DS;"BLOAD CERCLE.O 
BJO"“ 

20 HGR2 : HCOLOR= 3: PRI 


NT CHRS (7): 
30 FOR X = O TO 279 STEP 
29 
INT CX / 256) :XL 
= X - 256 « XH 
36 POKE 769,XL: POKE 770 


33 XH = 


40 FOR Y = O TO 131 STEP 
50 

45 POKE 771,Y 

6$ FOR R = 2 TO 200 STEP 
40 

70 POKE 768,R: CALL 772 

80 NEXT : NEXT : NEXT 


100 PRINT CHRS (7);: GE 
T AS 
110 TEXT : END 


+ : 


ERRSAYSE 


CA PEER PRES PETER 


EN 
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La micro-informatique au Japon 


Olivier Herz 


Le développement de la micro-infor- 
matique au Japon prend l'allure 
d'une explosion Le marché. quasi 
inexistant il y a un où deux ans. évo- 
lue de manière exponentielle. 


Les magasins 


À proprement parler. il v a très peu 
de magasins exclusivement consacrés 
à l'informatique. mais chaque maga- 
sin d'articles électroniques possède 
un rayon TV-vidéo, un rayon calcu- 
latrices. un rayon Walkman. et un 
rayon micro-informatique. 

Les trois quarts de ces magasins sont 
concentrés dans le œuartier d'Akiha- 
bara. où ils pululent par dizaines, 
voire centaines. 


En gros. les ordinateurs sont classés 
en deux catégories : 


e les pasocom {personnal cempu- 
ters) destinés à l'usage domesti- 
que: 


e les wordpro (word processors) à 
usage professionnel. 


Il va sans dire que les ordinateurs 
étrangers sont quasiment absents : 
parmi les ordinateurs exposés. il y a 
moins de trois pour cent d'Apple. et 
encore. jamais en état de marche 
pour démonstration: quant à IBM. il 
n'utilise pas les circuits de distribution 
menfionnés ci-dessus. mais les 
“Computerland”. Ceci n'a rien 
d'étonnant. Apple et IBM étant à peu 
près au prix français (voir ci-dessous 
les prix des ordinateurs japonais). 


Le langage 


La langue japonaise utilise un sys- 
tème d'écriture fort complexe. Il v a 
deux alphabets syllabiques (kana) : 


e le katakana, qui sert à écrire les 
mots d'origine étrangère, et que 
les lecteurs de Pom's connaissent 
bien {voir HAÏFA Pom's 5): 


e le hiragana. qui sert à écrire les 
terminaisons grammaticales. les 
post-positions. 


Î y a aussi des idéogrammes d'ori- 
gine chinoise (kanjil qui servent à 
écrire les racines des noms. verbes. 
adjectifs. et dont on ne peut se pas- 
ser. compte tenu du très grand nom- 
bre d’'homonymes. 


Cet état de fait pose un énorme pro- 

blème au niveau du software de 

base, qui peut être résolu de la façon 

suivante : 

e pour les ordinateurs bas de 
gamme. on peut écrire en kana 
(généralement katakana) grâce à 
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un générateur de caractères et à 
une commutation kana romaïji (ro- 
maïji est notre alphabet. parfois uti- 
lisé pour écrire certains mots): 


e pour les ordinateurs profession 


nels. le kanji est intégré au sys- 
tème d'exploitation. c'est-à-dire 
que l'on rentre les mots en sylla- 
baïre hiragana et que le DOS offre 











un choix de kanji dont on tire 
celui cherché. Les logiciels de trai- 
tement de texte toument avec un 
tel DOS. Au Japon. c'est une ré- 
volution ! 


Tout ceci explique les efforts considé- 
rables portés par le Japon en matière 
de ROM et RAM (on en est au mé- 
































Karcue Tyoe  Microsrocesseur RIK RM Disauettes DOS Prix 
NEC N520 8086 8MHz / 256K 1 # 8p. FTDGS 25200 
MC PC100 8086 7#Hz 32 128K i # 720K #C-DOS 14480 
NEC  PCS601 P9780C 4#Hz  G6K EX Î / 3060 
HEC PC880! PD780C 46iz 128 7 2 7 

SHRRP X1 1B0R 4Mz EK G4K Cassettes 1 4520 

SHARP M222UÛ ZB0A 442 äK GAX Ootior : / 4608 

ŒARF 425000 8086 5H: 16K {28X ! + 320 #S-D0S et 10368 

Pacxei PC'245 OMTS Bbits 2 2. X / Din 86 648 

Pocxet 2701255 CONS äbits 24K10.2X Î 1296 

Focket :C1401 CAS âvits GK 4.2 Î 1080 

rocket 221501 CMOS 8bits 18K B.X / 2380 

FUTISTE FM 7 6809 BMHz &4K 64K 1 + 320X CP/M 80 ou 4536 
1808 4#Hz UCSE 

FOIS FM it 6088 8#:z äK 128X ji # 320K CP/M A0 ou 9720 
6899 28iz 86, Æ-KHS et 
1B0A 4t@iz UCSD, GS-3 plus 

EUSISTi FH X 1B0A 3. S8Miz  16X I6K Cassettes 1806 

0ASYS ? 7 3 l'drive Tr. texte 27006 

HITACHI Hi 1BCA 4GK 32 Cassettes / 2268 
TOSHIBA PASOPIA i£ 280A 32X 64K Cassettes / 2376 
TOSHIBA PASCPIA 7  280A 4MHiz i6N BAK Cassettes / 4284 
CFAON  V-10 2808 3,58M14z  3ZK 16K Cartouches / 1989 
NATIONN. CF 200 1 9 32% Cartouches / 1980 
CKT IF 8x 6086 GHz 9 256K 2 Floggies  #S-D0S 7 
SR H 2% 1 9 9 Microtass. Î S760 
EPSCN OC 10 ? 7 4? ? CP/x 2 
CASIO FP-3000 8086 Bi 2 128K 2 #S-D0S 5408 
SANYC MBC-55 8086 128K 7 ES-DOS, CPM 6408 
SANYO KBC 200 180A 4Mz 9 9 1 floppy CP/H 16200 
Aople //e {prix au Jacon, à titre de coaparaison} 13608 


Le tableau a été calculé avec le taux de change : 1 000 vens = 36 FF 


Certains prix n’ont pu être découverts par Olivier Hertz, d’où les “?” 
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gabit sur une puce) la recherche 
d'un kanji se faisant actuellement en 
partie sur disquette. 


1 va sans dire que le code ASCII ne 
marche pas dans uné telle situation: 
on définit un code sur deux octets. 


Livres et revues 


Chaque ordinateur ou presque a sa 
revue et ses livres (je n'ai pas vu de 
revue consacrée à l'Apple, seulement 
quelques livres) et il est étonnant de 
constater que les livres américains 
sont quasiment absents Pour les 
trouver. it faut chercher dans les li- 
brairies ayant des rayons ‘étranger 
Il y a en outre quelques revues d'in- 
térêt général. avec articles et publici- 
tés. 


Imprimantes 


ll n'y a pas tellement plus d'impri- 
mantes qu’en France On retrouve 
toujours les mêmes  (Seikosha. 
Epson, Oki. NEC...) mais souvent 
habillées d'une autre marque : celle 


de l'ordinateur avec lequel est vendu 
l'imprimante. 


Ordinateurs familiaux 


C'est la pléthore: on en trouve à tous 
les prix, v compris des seize bits aux 
a graphiques exceptonnel- 
es. 

Le Sinclair @L et autres n'ont plus 
qu'à trembler (voir le tableau ci- 
joint). 


Ordinateurs 
professionnels 


Là aussi. il y a pléthore de modèles 
seize bits (avec 68000. 8086...) fonc- 
tionnant sous CP/M 86, MS-DOS. 
Le problème est que je n'ai pas en- 
core trouvé de compatible IBM, ce 
qui serait très sympathique, compte 
tenu des prix. 


IBM 5550 


Cet ordinateur, fabriqué au Japon 
par IBM-Japan, a un succès extraor- 


dinaire auprès des sociétés, bien qu'il 
soit très cher (près de 100.000 F 
avec trois drives). 


Construit autour d'un 8086. il pos- 
sède deux systèmes d'exploitation : 


e le premier sert uniquement au trai- 
tement de texte en japonais; 


e le Nihongo DOS, enfin, ressemble 
au MS-DOS pour les mots-clés. 
mais possède en outre une 
conversion kana/kanii. 

Sous ce système. on peut faire 
tourner des langages (Basic, Pas- 
cal. Fortran, avec affichage des 
messages en japonais si néces- 
saire). et des logiciels comme Mul- 
tiplan, Multtoo! Chart (graphi- 
ques), Multitoo! File (Data Base). 


Je n’en dirai pas plus, les lecteurs in- 
téressés par les détails pouvant se re- 
porter à l'article paru dans la revue 
Byte (novembre 83) : "Big Blue goes 
Japanese”. = 





Imagol s'est fait depuis longtemps 
déjà une place un peu particulière en 
devenant le champion du MEM/ 
DOS, un système d'exploitation par- 
ticulièrement adapté à la gestion de 
fichiers sur Apple (voir ‘La carte 


MDOS 6502 à l'essai. Pom's No 
4) 
Imagol lance maintenant. toujours 


dans la famille MEM/DOS. un nou- 
veau service : MEM/TERM. logiciel 
de communication transformant un 
Apple en terminal d'un autre Apple. 
La communication peut se faire par 
ligne directe, ou par l'intermédiaire 
d'un modem sur une ligne téléphoni- 
que. Notre but ici est de vous pré- 
senter sa genèse et les projets de dé- 
veloppement. 


Les réalisations 


MEMTERM est né avant tout d'une 
constatation : MEM/DOS est surtout 
répandu dans les PME et les SSCI 
(80% des installations se trouvent en 
province). L'isolement géographique 
de nombreux utilisateurs a conduit à 
leur offrir un service de télé-mise au 
point et de télémaintenance des logi- 
ciels. 


Dans le cas d'installations multipostes 
(fréquentes sous MEM'DOS), les dia- 
gnostics de dysfonctionnement peu- 
vent parfois s'avérer délicats : MEM/ 
TERM s'est alors vu doter d’une 
fonction de “RUN” à distance per- 
mettant le test des fonctions de l'ins- 
tallation réelle de l'utilisateur. Sous 
MEM/DOS, les masques sont stockés 
indépendamment des programmes, 
ce qui permet de ne pas les trans- 


Pomsn 12 


Pom'’s a vu MEM/TERM 


mettre. Ils sont dupliqués sur l'instal- 
lation du ”“mainteneur”, et seules les 
informations utles transitent par les 
lignes de communication 


En ‘prime”,. MEM/TERM permet 
aussi d'exécuter un programme à 
distance chez l'utilisateur lui-même, 
par exemple des transactions en 
temps réel sur un poste dans la jour- 
née, et une exploitation en temps dif- 
féré sur un autre poste (toujours en 
ne transmettant que les données 
utiles). 


Les projets 


La première voie de recherche vise 
une amélioration du produit de base. 
en le dotant d'un système de protec- 
tion permettant d'utiliser MEM/TERM 
avec CERTAINS programmes et fr 
chiers, mais empêchant de le faire 
pour d'autres, logés sur le MEME 
disque (ceci en vue d'assurer la 
confidentalité de certains fichiers et 
traitements). 


La seconde voie. consiste à créer une 
sorte de “banque de démos” éclatée. 
les divers abonnés à ce service (re- 
vendeurs notamment) pouvant de 
leur poste utiliser à des fins commer- 
ciales les ‘’démos” proposées. en 
particulier par des producteurs ou 
distributeurs de logiciels. 


La troisième voie est la création d’un 
réseau avec un serveur et des Apple 


Guy Lapautre 


(en ‘concurrence” avec Minitel). 
Toutefois, d'autres solutions possibles 
sont à l'étude. notamment celles in- 
cluant des Minitel dans le réseau. Af- 
faire à suivre 


Coût du service 


MEM/TERM est-il un service coùû- 
teux ? Rappelons tout d'abord quil 
ne fonctionne que sous MEM/DOS, 
et le plus souvent sur des installations 
relativement musclées. Les prix qui 


suivent ne comprennent pas Jacqui- 
siton du MEM'DOS. 


1) Installation simple pour télémain- 
tenance : 5.000 F environ pour le 
modem et la carte Super Série. plus 
1000 F pour le logiciel. soit un coût 
total d'environ 6.000 F HT. 


2) Communication entre deux Apple 
chez l'utilisateur: linstallation  ci- 
dessus en double (1 des modems 
avec porteuse) et 1 logiciel à chaque 
extrémité. soit environ 12.000 F HT. 
Par contre. si la distance est courte. 
au maximum 100 mètres sans ampli. 
le coût est d'environ 4.500 F HT. 
plus celui d'un câble 3 brins entre les 
postes. 


Pour tous renseignements, télépho- 
ner à Monsieur Ratié. Imagol. 1-5 
rue Gutenberg, 75015 Paris - Tel 
577.59.39. 

= 


eat ta bd et SR MU A2 Hot 
CRNSENNIMISEMSIMLE 


63 


tome 1 

per Serge et Gérerd Lflio 
Veici un ensemble complet de pro- 
gammes de Comptabilié sur Apple II 
adapté ait Nouveau Plan Comptable, 

tr peütes entreprises, professions 
ibérales. artisans. commerçant. On 
$ trouve des programmes permettant 
l'édition des livre-jeumal, grand-livre. 
balanæ. bilan. la possibilité d'éditer 
les livres de banque. de TVA, de re 
cernes. ainsi qu'un progamme de dé- 
tection des erreurs de frappe. Capatité 
du système : compte à 6 chiffres. 409 
lignes par plan. 
Le livre : 184 pages- 120.00 FF 
La disquette: 195.00 FF 


tome 2 
por Serge et Gérard Llitio 
Ce secend tome connent vots pro- 
grammes complémentaires des pro- 
gammes de comptabiäté du tome 1 
- visualisation graphique tndimension- 
nelle des receñles et dépenses avec 
calcul des ratos. - tableaux des amor- 
tssements cakul d'impôts. ainsi 
qu'un programme de cormptabihté qé 
nérak pour les utilisateurs de disques 
8 pouces. disques durs ou d'une seule 
unité 5 pouces 1/4 
Le livre : 144 pages -110,00 FF 
La disquette : 195.00 FF 
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par Jean-Michel Jégo 

Cei ouvrage présente l'analyse et la 
Pogammason des problèmes de i2 
paie et des charges salariales : fichiers 
de personnel. calcul des cotisations. 
élaberanon d'un bullenn .de salaire 
avec cungés payés En fin d'ouvrage 
en aboutit à la tenue d'un catier des 
charges salaries tel qu'il peut se pré 
senter dans une pehle entreprise. At 
tention : beaucoup de simplifications 
ent été apportées Par rapport aux si 
tuatons très diverses rencontrées par 
les professionnels de la paie 

Le livre : 136 pages- 110,00 FF 
La disquette: 195,00 FF 


parBernord Sulmen 

Sont traués dans ce livre : l'analyse des 
coûts mardinaux. le calcul de seuils de 
rentabilé. le Direct Cesting. le cakul 
des raties ou du Fond de Roulement 
minimum. là rentabilité des mvestis- 
sements et la gestien desstecks, Chaque 
pogemmée est propos avec un 
exemple d'asplication 

Le fivre : 156 pages - 100,00 FF 


La disquette : 195,00 FF 


UVEAU 
par Hervé Thiriez NO 


Multiplan est un pregicrel qui permet 
de rer plusieurs tableaux simultané 
ment. cet ouvrage sera Peur les pos 
sssæuss d'ordinateus Apple Il Plus ou 
e un véritable guide d'utisstion de 
Multiplan grâce à des exemples pro- 
gresifs et à de nombreux cas d'appli- 
caton {gesten de pPorteleuilles. de 
copropnét, feuille de paie. impôts. 
tableaux de bord. etc.) 
Le livre : 216 pages- 100,00 FF 
Là disquette : 195,00 FF 


por Hervé Thinez 

Après une présentanon progressive du 
modèle Visicak l'ouvrage étudie de 
nembreux Cas d'applicañon’ {eville 
d'impôt, gestion de Copropr&té, paye. 
faciutratien.…, permettant d'introduire 
les dilfécentes instructions et astuces 
d'unlisation. 

Le livre: 176 pages - 90.00 FF 
La disquette : 195.00 FF 


per Jacques Boëgoraier 

Pour apprendre progressivement la 
programmation des apphcattons utili- 
sant les fichiers l'ouvrage commence 
per une présentation conoise etillustrée 
des cetnt. andes du Systéme d'Exploi- 
taoon Disque et des instructions du 
Basic Applesoh, Les mstructions des 
fichiers SéQuentiels et à accèsdirect sont 
ensuite décrites ainsi Que leur utilisa- 
ton Des méthodes pratiques. souvent 
mal connues. montrent comment utili- 
ser au mieux des fichiers à accès direct 
accësindexé. listeinverse. Une vingtaine 
de programmes illustrent l'utilisation de 
ces techniques 

Le livre : 176 pages - 90,00 FF 
La disquette : 195.00 FF 
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Modèles pratiques de décision 


par Jean-Pierre Bianger 
Cet ouvrège use l'atemansotion du 
processus de la pnse de décision Les 
Œfférentes techniques exposées sont 
complétées: d'un exemple et d'un Pro- 
gamine en Basc pour permettre au 
lecteur une rapide maîtrise desmodèles 
présentés et leur mtégrahon à de nom 
breusesapplicapons (samulation, gestion. 
imelhigence amficieile. } 

Lelivre : 144pages - 90,00FF 
La disquette : 195,00 FF 


Modèles pratiques de décision 


parJeon-Pierre Blanger 
Ce tome 2 de Modèles pratiques de 
décision offre un nouvel éventail de 
tecimiques visant l'autornatisation du 
proceæus de la prise de décision. Cha 
cun des vingf modèles présentés donne 
lieu à un bref expos. unexemple et un 
programme en Basic standard. 

Le livre : 176 pages - 90.00 FF 
La disquette : 195.00 FF 


Modèles d'expression graphique 
por Jeon-Pierre Bianuer 

Cet ouvrage expose un ensemble de 
techniques visant la mise en œuvre des 
possibiftés graphiques des ordinateurs 
indviduets Il permet au débutant 
comme à | amateur chevronné d'abor 
der is résolution de problèmes de plus 
en plus complexes irracés d'ellipse. 
rotation de polygone. hachurage de 
surface Les modèles d'expression 
graphique. écrirs en Basic Applesoft. 
son abondamment cornmentés et faci- 
lement adaptables à d'aurres ordina- 
teurs individuels 

Le livre : 232 pages - 130,00 FF 
La disquette : 195,00 FF 


Mathématiques wi statissiqques 
par Hervé Haur 

Cer ouvrage est un recueil de 16 logiciels 
de base (niveau supéneur] tant en ima- 
thématiques qu enstaustiques. Chaque 
problème traité comporte une intro- 
ducnon numérique, un exposé de la 
technique de programmation uthsée. 
un organigramme détaillé et un pro- 
gramme cemplei en Bas surmvi d'un 
exemple d'utilisation 

Le livre : 272 pages - 100,00 FF 
Là disquette : 195,00 FF 


Envoyer ce bon 
3CCompagne de votre 
réglement à 

PS1 DIFFUSION 
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Bibliothèque scientifique 

en Foscal 

porHervéHaur 

Les prosédures propoges dons cet 
ouvrage sont conçues pOur élre implan- 
tées dansie System £ ibranydu langage. 
L'utilisateur disposera d'une biblio- 
thèque ennchte, permettant une r650- 
lution aisée et pertormiante d'un grand 
nombre de problèmes mathématiques 
et stanstques souvent rensontrés dans 
les programmes scienufiques. 

Le livre : 152 pages - 90.00 FF 
La disquette : 195.00 FF 


Met Je e calcul mumméritge 
par Claude Nowakowski 

Tome 1 : Equanons non linéaires, poly- 
nômes. calcul matriciel intepolation 
intégration et équations différennelles. 
pour chaque pmblème les différentes 
méthodes de calcul numérique sont 
étudiées Ces algorithmes sont illustrés 
par un organigramme. un programme 
en Basic et un exemple d'exécuñon. 
Le Tome2donne: desalgorithmesplus 
élaborés ou pius subis er aborde de 
nouveaux thèmes: approximation des 
fonctions. problèmes eux limites, équa- 
ons aux dérivées partielles 

Chaque algorithme est progammé en 
Basic et en Pascal 

Tome 1 : 144 pages - 90.00 FF 
Tome 2 : 184 pages - 110,00 FF 
La disquette pour les 2 tomes : 
195.00 FF 


Ba et l'évrile 
par Jocques Gouet 

Le livre décrii un ensemble de pro- 
grammes en Bask. destinés aux pro- 
fesseurs. aux Pèrents et aux élèves 
Grammaire. mathématiques. corugai- 
sons française, anglaise. sont autant 
d'exemples d'applicaton qui font de 
cet ouvrage un véritable outil d'ensei- 
gnement et d'initaton, à l'école ou à 
lamaison 

Le livre : 192 pages -120,00 FF 
La disquette : 195.00 FF 


» Masir ut l'érvolu 


par Jacques Gouer 

Pourw que vous possé diez un lecteur 
de disquette, veus allez pouvoir créer 
et gérer vous-même vos Questonnaires 
à Choix Multiples et vos exercices. sui 

vre les noresobtenues, et concevoir des 
camets de vocabulaire étranger. 8 l'école 
comme à la maison 

Le livre : 160 pages- 110,00 FF 

La disquette :195,00FF 
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MICRO-PERIPH 
ouvre les portes de votre Serrie Ir 


MULTITECH 


clavier 

pour 

Appte 

M GEBFT.T.C.] 


90 touches sur un clavier ergonomique et esthétique 
32 Louches de fonction profammables par l'utilisateur 
10 touches de fonctions définissahles per l'utilisateur 
52 touches pour les commandes an Basic ou D8S 
cordon de |,60 m 

LED pour “caps tock''’et "num lack" 
parfaitementadupt# peur l'Apple 


Ce proguit est g'une excellente qualité et durabilité, Un microprocesseur-décodeur 
sul le clavier confèra une énorme flexibilité au rilveau dela paramétrisatien des tou- 
ches, cs qui gst trés utile à 'installauon d'application de trastémnert de wxte, L'ins 
taltation 8€ fait en Cinc| minutes. sans soudure nt autre pièce. 


MODEM ‘’8U22 BOX‘ 11 W0FT.T.C.) 


PROMOTION IMPRIMANTE 


RX 
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NOUVEAU 
STYLO OPTIQUE (1 770 F F.T.C.) 


° foncuonne 


maneur MOnechro couleur eu télévissus ceuleur 
= ; 


LES CARTES « PILOTS » 
U.TERM (1 490 F T.T.C.) 


11SFT.TC.): son pointfortasils vitesse 4 MHz. Compatiblea tOUS 
is CP/M ou de ZB0 
U-RAM16 (890 F T.T.C.} : c'est une carte langage entièrement cemmpatible avec 
INTEGER BASIC, PASCAL, VISICALC,e1c. Pourquoi payer plus cher? 
U-S232 11 040 F T.T.C.| une carte de série, vitesse 
19200 bauds, Corte carte contient son propre logiciel de / 
de faire flonchonner une imprimante à sa vitesse optimale 
ciel de communication VISITERM 


Ouvert du mardi au samedi : 100h-12het14h-18h 
62, rue Ducouédic - 75014 PARIS (Tél. : 321.53.16) 


NOUVEAU 
PROMOTION OE LECTEURS DE DISQUES — 2 590 F T.T.C.) (PhoivBl 


(Peur los ventes { Coréspondance. veuillez ajeuter 40 F de pert.] 


LES CARTES D'INTERFACE PRIXT.T.C 
CarteZ 80. & MHz}{Photo 1| 930 
Carte 60 col. avec minu/maluscules français (Photo 2} 
cac. inversés {1l+ }compa C 

Programmeteur d'Eproms(2758/16/32/32A/64l(Phete3) 
Corte RS232C 75-19200 beudcompal, Visiterm, etc IPheto di 
Int/face parailèla 1ype Contronics pour Epson. etc . {Photos} 
Interface pour lecteur de disques (Photo6) 
Carte langage pour Agole11+ compatible Pascal, CP M IP 
Carte 80 colonne pour Apple / /e extensible à 64 K IPhoto9i 

nnes pour Apole / !e équipée de 54 K (Photo91 


O 


Carte VIA 6522 svec8 entr 

Carterorloge 

Carte IÈÉE.488 + câble 

Carte musicale 

Carte imprim. 1Eps., Cent,, NEC, A:p1) avec 64 K buffer 
Carte à entre/sortie rnultipls A/0, D/A 

Carte 6809bi-processeur 

Carte convertisseur A /D 

Carte int/face Pêra commutable IEpson, Apple, NEC, Cent.) 
Moniteur Zenitriv'ert 

Moniteur Zenithambre 

Carte Videx Ultraterm 

Accelerator {| 4 MHz de Salurn - tous les pregrammes teurnent quatre 
fois plus vite sons modification 

Accelerator //6 

SAM synthétiseur vocel 

Enhencer {1. bufter, auto-r#p. et matros pour claviens 

LES LOGICIELS PROFESSIONNELS 

DBASE|| 
ASCi Express pro. logiciei de communication 

Z-Term Pro: logicie om 

P Tarm Pro de communication Pascal 

Softerm 2 - émulation de terminal 

Magicelc 

Merlin Assembleur 

POUR OBTENR PLUS DE RENSEIGNEMENTS, r'hésirez pas à nous appeler 


lesquels nous 


BON DE COMMANDE 


Toutes nos cartes sont gararrties T2 mois) 


MICRO-PÉRIPH, 82, rue Oucouédic - 75014 Pants - Tél. : 321.53.16 


NOUS ACCEPTONS DES BONS DE COMMANDE ADMINISTRATIFS 





Une année, on change le manche. 
L'année suivante, la lame. Au bout 
de huit ans, c'est toujours le même 
couteau. Mais comme, entre temps, 
les techniques de fabrication du man- 
che et de la lame se sont beaucoup 
améliorées. vous avez un couteau 
qui peut toujours faire les mêmes 
choses. Mais tellement mieux! Et. 
ces techniques. elles n’ont pas fini de 
progresser. Alors, votre couteau. il va 
durer longtemps. Et puis. si deux ou 
plusieurs années de suite. vous ne 
pouvez ou ne voulez rien changer, 
quelle importance ? Vous continuez 
de vous en servir: quand vous met- 
tez une lame neuve, elle est deux 
fois meilleure. 


Le présent du //c 


Voici donc l'Apple //c {pour ‘’com- 
pact”}, énième version dz l'Apple I. 
ce grand ancêtre, né dans un garage 
de Californie il y aura un siècle et 
demi : en informat:que, on divise le 
temps par 20: 100 ans = 5 années 
de la vie d'un humain Les différen- 
ces du micro avec ‘lhumain” sont 
d'ailleurs curieuses: plus il vieillit, 
plus il prend de la bouteille (pardon, 
de la puce) et plus il se dégraisse. 
Cet Apple //c ne pèse plus que 3.4 
kilos, lecteur de disquettes incorporé 
compris. 


S'il grandit, c'est par sa matiére 
grise : 128 K-octets pour cet Apple- 
plume de 30 cms sur 30 Il n’en 
aura jamais davantage d'ailleurs puis- 
que - grande nouveauté - il a perdu 
au passage ces slots qui faisaient la 
joie des bricoles. Faut-il pleurer ? 
Non. Puisque son grand frère //e les 
conserve. Et qu'il est tout de même 
bien agréable de prendre son ordina- 
teur à la main, comme jadis papa 
son chapeau. pour aller passer le 
week-end ailleurs ou, tout simple- 
ment, le ramener le soir à la maison, 
aprés une journée studieuse sur les 
bancs de la fac. L'écran ? Bof. Pen- 
dant encore trois ou quatre mois. 
c'est vrai, il V aura un demi-pro- 
blème . il vous faudra emporter un 
moniteur. à moins que vous ne trou- 
viez sur place un poste de télé avec 
prise Péritel - puisque la carte Chat 
Mauve est intégrée (tiens. vous met- 
tez les slots à la porte. ils reviennent 
se coller derrière): il vous suffit de 
brancher le fil du //c sur le récepteur. 
Cela veut dire également que les 80 
colonnes sont là, d’origine. Un pett 
bouton bien visible, sur le capot cou- 
leur beurre frais, et vous passez à vo- 
lonté en 48 colonnes Et vice versa. 


Pom's n° 12 


La famille Apple // 


Vers la fin de l’année - ou peut-être 
avant -, les choses vont changer: 
vous pourrez lui mettre un couvercle, 
au //c. Un couvercle pas comme les 
autres puisque, dès que vous l'ouvri- 
rez, il se transformera en..écran plat 
à cristaux liquides. 80 et 40 colon- 
nes. Or. le processeur du //c est bien 
un 6502 - mais avec un C. 65C02. 
le C de CMOS. bien sür. cette tech- 
nologie qui diminue fortement la 
consommation d'énergie. Ce 65C02 
ajoute une vingtaine d'instructions 
aux 60 que possédait le 6502 D'où 
une mémoire plus rapide d'accès et 
une écriture de code plus rapide. Si 
donc vous ajoutez à la machine une 
batterie - d'origine. Apple-plume 
fonctionne sur 12 volts, avec un 
mini-transfonnateur - que se passe-t- 
il? Vous avez deviné: vous voici en 
possession d'un ordinateur portable. 
un vrai, f'un des plus légers de la ca- 
tégorie. 

Intéressant, cette fois. pour les week- 
ends que vous pouvez transformer 
en pique-niques. Encore faut-il que 
le Multiplan sur lequel vous avez 
peiné toute la semaine veuille bien 
aligner ses chiffres dans une clairière. 
Et là, il v aurait comme une histoire 
de souris qui a déniché un fromage, 
lequel fromage n’est autre que l'em- 
placement traditionnel de la vidéo in- 
versée de certains caractéres secon- 
daires. Car le fc y a droit, à sa 
soutis. C'est bien, c’est pratique! 
Mais il faut bien la mettre quelque 
part. Alors, chez Microsoft, on donne 
un dernier petit coup de patte à une 
version de Multiplan qui mettra sa 
vidéo inversée ailleurs. Ceci est vrai 
pour la série des PFS en particulier, 
de tous les programmes qui font un 
usage étendu de l'inverse en général. 
À des degrés divers: prenez Apple 
Wiiter. Oui. la ligne du haut, celle 
qui affiche la mémoire et les titres. 
grignotée par des caractères souris, 
ressemble à un morceau de gruyère 
sur le //c. Mais - c'est mon cas. 
j'aime les écrans bien vides - on peut 
toujours s'en échapper avec deux 
fois Esc. Alors se produit l’inattendu : 
disparaît l’un des rares inconvénient 
du //e, sa lenteur de frappe qui me 
supprime environ un caractère sur 
cinq. La relation entre le clavier de 
l'Apple-plume et sa mémoire est dif- 
férente. La conséquence. c'est toute 
la rapidité de frappe retrouvée. D'au- 
tant plus surprenant, justement, que 
le clavier. d'apparence mi-chewing- 
gum mi-mécanique se révèle, à 
l'usage, plus mécanique que che- 
wing-gum. très agréable au toucher. 


Daniel Garric 


Cela dit, tous les programmes de jeu 
de type Zaxxon et autres arcadiens 
s’accomodent à la perfection d'Ap- 
ple-plume. Sans parler des jeux de 
rôle {’Sorcellerie” dans un château 
hanté. pour les amateurs de sensa- 
tions. cela doit avoir son charme) et 
des jeux d'aventures. Essayez le der- 
nier-né de chez Vifi-Nathan, "La 
Belle au Bois donnant”, tiré de 
Charles Perrault par des américains, 
traduit en français par des canadiens, 
dans un grand parc du Berry sur 
fond de tours et de créneaux. et je 
suis sûr que les enfants apprécieront 
le réalisme du conte. 


Notre //c. avec ses deux sorties série. 
modem et imprimante, par exemple 
(l'ImageWriter lui va comme un gant) 
et sa connexion pour un possible se- 
cond drive, est un petit bijou. Mais il 
ÿ à gros à parier que, dans l'échelle 
de l'évolution Apple, il ne soit tel 
qu'en lui-même: l'étemnité la déjà 
changé. Ce qui est trés bien ainsi. 
Puisque son frère aîné, le //e, est, lui. 
en pleine mue. 


L'avenir du //e 


La souris arr.ve. Par le biais de Mou- 
sepaint, d'abord: c’est un pro- 
gramme de dessin et de peinture 
(vous l’auriez deviné) furieusement 
tiré du Macintosh Même avec les 
possibilités plus limitées de l'Apple 
/le, c'est une micro-révolution que de 
pouvoir utiliser un écran comme une 
feuille de papier. D'autant plus que 
les couleurs demeurent. Et que l’on 
n’a plus à manipuler de routines de 
sauvegarde ou d'affichage. 


Mousepaint, c’est l'avant-garde de 
tout un bataillon d'applications que 
l’on pourra très bientôt mener à la 
baguette - pardon, à la souris. 


Mais il V à aussi Jane, oeuvre et/ou 
chef d'oeuvre d'un petit génie de 20 
ans presque de chez nous puisque, si 
Howard Marks - c'est son nom et 
son prénom - est né britannique, il a 
fait ses études en France avant de 
partir les poursuivre aux Etats-Unis. 
L'Apple, il connaît depuis toujours 
(pour lui). I] a donc tout démonté. 
dans la machine. Et tout reconstruit. 
le DOS en tête, en utilisant une carte 
à enficher dans un slot, l’'assembleur 
et “un peu”, dit-il, d'intelligence arti- 
ficielle. La première version, sur les 
64K du //e ou du If Plus, est intéres- 
sante : les commandes ont disparu, 
la souris se balade librement, les fe- 
nêtres s'éclairent, le tout-graphique 
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explose. Mais on est un peu à l’étroit 
dans la mémoire. Attendons la route 
ou la RAM 128K avant de se déa- 
der. 


De toute façon. il y a le choix. L'Ap- 
ple //e, pour les usages profession- 
nels, est comblé. Du ”soft”, il lui en 
arrive de tous les côtés (voir l’article 
de Jean-Michel Gourévitch), Dont un 
nouveau langage, Modula Il, version 
modulaire et bien plus intéressante 
du Pascal, mis au point par le génie 
helvète de Nicklaus Wirth soi-même, 
et distribué par Volition System. à 
San Diego. Ce Modula Il. dit-on. 
sera le grand rival du C (non, ce 
n'est plus pour ‘compact”. cette 
fois). 


Le “hard” ne se fait pas prier non 
plus. d'ailleurs. avec les cartes 
comme celle d'Act-Logo, en France, 
qui vous autorise à animer quelque 
32 sprites en couleurs sur votre 
écran. L'esprit est vraiment là. qui 
peut même déjà s'exprimer à haute 
et presqu'intelligible voix avec des 
synthétiseurs variés 


Drôle de “couteau” que cet Apple //. 
qui n'en finit pas de renaître avant 
même d’avoir rendu sa puce. Celle-ci 
finira bien par v passer, d’ailleurs. 
Mais pas avant d’avoir assuré, non 


seulement sa postérité, mais aussi, et 
peut-être surtout, son passé, un 
passé de 16000 programmes envi- 
ron. Car il fallait bien qu'arrivât le 
processeur 16 bits entièrement 
compatible avec le 6502. Son matri- 
cule est quelque chose comme 
65816 et il vient tout droit d’une pe- 
tite boîte californienne spécialisée 
dans la technologie avancée. Qu'est- 
ce qu'Apple en fera, de son 16 bits ? 
Un Apple /’x, comme on le mur- 
mure ? La “bande à Steve Jobs” 
l'avait jusqu’à présent plutôt snobé. 
le 16 bits, préférant passer directe- 
ment du 8 au 32 avec le 68000 de 
Lisa et du Macintosh. 


Mais justement : il y à eu rupture. 
Tandis que que le 65816 assure la 
continuité dans le changement. La 
tentation est grande de prendre 
appui sur le passé pour se propuiser 
en avant. D'autant plus que la straté- 
gie d'Apple est d'une grande clarté : 
devenir, ou plutôt demeurer ‘l'Au- 
tre”, un défi de Cinq lettres aux Trois 
lettres magiques. avec de grands 
pans d'une politique cohérente à ses 
8 et 32 bit : tout sur la communica- 
tion en série (adieu au parallèle). tout 
sur Pascal et ses modules (tant pis 
pour le Basic, lequel a d’ailleurs ten- 


dance à partir dans tous les sens). 
Beaucoup sur le soft. 


De là à vous dire ce que sera l'Apple 
// dans un an. je m'y risquerai d'au- 
tant moins que Steve Wozniak. l'au- 
tre père“ de l'Apple est entré en 
loge. comme on dit. quelque part à 
Cuperäino, pour ‘travailler à quelque 
chose” dont rien ne transpire vrai- 
ment. Et ce n'est pas en regardant la 
concurrence que l'on en saura da- 
vantage puisque. par principe. Apple 
ne fait rien comme les autres. 


Mais on peut être certain que. du 
côté de San Francisco. il y aura du 
nouveau, dans la taille de l'appareil 
lui-même, la capacité de sa mémoire, 
de ses gestions d'I/O (n'importe 
quoi). D'autant plus que l'intelligence 
artificielle commence à rôder dans les 
parages de la micro. Ce nouveau 
produit aura pour fonction essentielle 
de projeter très loin le passé vers 
l'avenir. En clair : il y a très peu de 
chances pour que vos Apple Il Plus, 
le ou //c deviennent stériles avant 
une bonne décennie. Le cercle de fa- 
mille va. au contraire. s'élargir. Vers 
1995. l'Apple HE sera toujours là, plus 
tout à fait le même. pas vraiment un 
autre. 
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NELDR : tous les prix en francs indi- 
qués dans cet article sont TC. Cha- 
que fois que l'adresse d'un fournis- 
seur nous est connue. nous 
l'indiquons en fin d'article. Inutile par 
conséquent de nous appeler pour 
demander les coordonnées des 
autres fournisseurs. 


On à sans doute enterré un peu vite 
le best-seller d'Apple et son “vieux” 
6502. Voici que non seulement l'Ap- 
ple se donne des airs de Macintosh 
(voir l'article de Daniel Garric), mais 
que les programmes, les interfaces, 
les périphériques et les gadgets arri- 
vent comme mars en carême. Oh. 
certes, cette marée fait des jaloux. et 
suscite même de vilaines vocations 
de copieurs. Ces derniers prendront 
toutefois garde après la mésaventure 
de Franklin, un fabricant américain 
de simili-Apple : ayant peu de chan- 
ces de gagner le procès que lui inten- 
tait Apple, il à préféré payer à la so- 
ciété de Steve Jobs la bagatelle de 
deux millions et demi de dollars. 
s'engager à ne plus copier les ROMs 
de Cupertino et même accepter un 
droit de regard des ingénieurs d'Ap- 
ple sur ses ordinateurs à venir .… Un 
arrangement qui freinera peut-être 
d'autres vocations et renforcera la 
prééminence de l'Apple li, le seul, le 
vrai. Un autre évènement qui risque 
bien de conforter l'Apple. ses pro- 
grammeurs et ses fabricants d'inter- 
face, c'est le décoliage laborieux du 
petit dernier d'IBM, le PC junior. 
Tandis que ce dernier restait sur les 
étagères des revendeurs, Apple ven- 
dait pendant le seul mois de décem- 
bre 110.000 /e. Alors, si ses perfec- 
tonnements sont si nombreux. il ne 
faut pas. à coup sûr. y voir l'effet du 
hasard. 


Car voici FApple accommodé à 
toutes les sauces : en plat de résis- 
tance, une nouvelle imprimante lui 
donne des capacités de traitement de 
texte bien augmentées: il peut main- 
tenant recevoir le célèbre tableau- 
gestionnaire de fichiers ”1-2-3* de 
Lotus, ou dater et estampiller de 
l'heure n'importe quel fichier. 
comme un pro. Un programme le 
transforme en ‘processeur d'idées”, 
des mémoires virtuelles lui donnent 
des ailes. En guise de dessert. c'est 
l'utilisateur qui croit avoir des ailes. 
installé devant son écran-cockpit. aux 
commandes d'un Piper, grâce à l’un 
des meilleurs simulateurs de vol du 
marché. Et pour finir en musique, 
comme il se doit, un programme et 
une carte transforment l'Apple en 
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Micro-informations 





instrument musical. Et ce n'est qu'un 


début. l'année 1984 sera peut-être 
celle de Macintosh. mais à coup sûr 
aussi celle du //e. 


Hard : place à l'Apple 


Elle s'appelle ‘imagewnter”. débite 
les textes à 180 cps. au son d'un 
simple ‘crachouillement”. C'est la 
nouvelle imprimante matricielle d'Ap- 
ple. Bidirectionnelle. graphique, à 
traction et friction, elle utilise donc 
n'importe quelle forme de papier et 
même des liasses. Elle dispose de 7 
alphabets (dont le français). de 8 
jeux de caractères (avec notamment 
l'espacement proportionnel). d'un 
choix de taille des caractères. de pos- 
sibilités de soulignement et d'impres- 
sion en caractères gras. L'intéressant. 
c'est que l'on peut fixer un choix 
“habituel” (par défaut) grâce aux 
micro-interrupteurs de l'imprimante, 
mais que l'on peut aussi, grâce à des 
codes de contrôle. facilement modi- 
fier son choix en cours d'utilisation 
Bien évidemment. l'Imagewriter per- 
met d'imprimer les textes saisis avec 
Apple Writer 11 et Visicalc. L'impri- 
mante coûte moins de 5000 francs. Il 
faut encore lui rajouter un kit d'ac- 
cessoires vendu un peu moins de 
300 francs pour disposer des deux 
manuels (d’ailleurs détaillés et bien 
conçus) et dun câble Attention, 
l'Imagewriter est prévue pour une in- 
terface série, et non plus parallèle. 
comme l'ancienne DOT Matrix. 


Jean-Michel Gourévitch 


Côté interface. on peut donc acquérir 
la carte super-série d'Apple MID 
propose déjà une autre carte ‘made 
in France”. munie de divers perfec- 
tionnements. dont notamment la re- 
copie d'écran haute résolution par 
commande directe: cest la SG2E 
vendue un peu plus de 2000 francs 
(mais avec un câble}. Aux Etats Unis. 
Practical Peripherals vient lui aussi de 
sortir une nouvelle carte série aux 
possibilités graphiques. disposant no- 
tamment de 27 commandes permet- 
tant le formatage du texte ou la reco- 
pie d'écran. C'est la ‘SeriALL”. 
vendue outre Atlantique 15% dollars 
{moins cher que la super-série d'Ap- 
ple). En attendant la nouvelle impri- 
mante laser qu'Apple pourrait com- 
mercialhiser avant la fin de l'année. 


En temps et en heure 


C'est la nouvelle possibilité offerte 
par le ProDOS pour estampiller les 
fichiers. Voilà de quoi donner un re- 
gain de faveur aux cartes horloge. 
Les fabricants ne se privent d'ailleurs 
pas d'en tirer argument. Thunder- 
ware souligne lourdement qu'on 
mentonne sa ‘Thunderclock” dans 
le manuel du ProDOS, Practical Peri- 
pherals affirme que sa “Proclock” a 
été prévue pour tous les DOS. et Ap- 
plied Engineering souligne que sa 
"Timemaster |[” est ‘officiellement ” 
ProDOS. en mettant l'accent sur le 
prix (129 dollars), 


Toujours plus ! 


C’est de mémoire qu'il s’agit, ou plus 
exactement de mémoire virtuelle. 
Grâce aux pseudo-disques. Leur ca- 
ractéristique. c'est bien sûr de ne pas 
en avoir. De quoi? Mais. de dis- 
quette, bien sûr. La “Flashcard” de 
Synetix contient jusquà 288K de 
mémoire, et est livrée avec les dis- 
quettes pour le Dos 3.3, le CP/M ou 
le Pascal. Et en prime les disquettes 
de "Wordstar” (le tout pour 629 dol- 
larsi. Un logiciel. le “Ramdrive 'e” 
de Precision Software, permet d’utili- 
ser toute carte 80 colonnes étendue 
comme pseudo-disque (30 dollars, 
mais l'intérêt de la chose est réduit 
car ce sera précisémen un des avan- 
tages du ProDOS). Par contre, le 
"QuickLoader” de Southern Califor- 
nia Research Group permet. lui. de 
charger immédiatement des program- 
mes sans attendre le fonctionnement 
du lecteur de disquettes. Le miracle ? 
Les programmes ont préalablement 
été inscrits en PROM. Mieux. le DOS 








est déjà livré sur une PROM de la 
carte, d'où la possibilité d'accès di- 
rect, par un simple CTRE-C Reset, à 
la fonction Catalog ou à d'autres 
commandes comme le lancement du 
HELLO. La carte est aussi livrée 
avec le COPYA. Plus besoin de l'en- 
trer avant de recopier un pro- 
gramme. Le QuickLoader, d'une ca- 
pacité de 256K. est vendu 180 
dollars. 


Plus vite. .. 


Grâce au Spee Demon de M.C.T. 
Une carte accélérant l'Apple //e ou I! 
Plus, qui travaille alors trois fois et 
demi plus vite. Il en existe d’autres. 
Celle-ci présente un “plus” : son prix 
de 295 dollars. Qu'en adviendra-t-il 
si jamais on l’importe chez nous ? 


Communiquer 


Avec un modem bien sûr. Comme le 
Buzz Box vendu chez Micro Périph, 
lui aussi à un prix intéressant : 1100 
francs. Le hic ? Il n'a pas encore ob- 
tenu son homologation PTT. Cepen- 
dant, il fonctionne aux normes fran- 
çaises, à 300 bauds en ful et half 
duplex. et est homologué en Grande 
Bretagne. 


Musique 


Transformer l'Apple en instrument de 
musique ? Avec la carte Mocking- 
board importée par BIP. l'Apple gé- 
nère des sons en stéréophonie, avec 
possibilité de jouer simultanément 6 
notes {avec un programme comme 
Music Construction Set). Et de nom- 
breux jeux (plus de quarante sociétés 
de logiciel l'ont adoptée) sont étudiés 
pour la Mockingboard, comme Zax- 
xon, Exodus, Maze Craze, etc. Atten- 
tion, les prix de la Mockingboard 
peuvent varier de 1500 à 2400 
francs selon les revendeurs. On la 
trouve notamment à la Fnac, à Mi- 
croshop et chez Sideg. 


Logiciels 
De la mémoire et du caractère 


Videx vient de sortir Ultraplan, un ta- 
bleur capable de tirer profit de nom- 
breuses cartes d'extension mémoire 
(jusqu'à 512K), ainsi que de la carte 
Videx, pour obtenir des écrans avant 
jusqu'à 48 lignes et 128 colonnes, 
avec des caractères très lisibles et dif- 
férents niveaux lumineux pour mettre 
en relief telle ou telle partie du ta- 
bleau. 


Un plan de travail électronique 


C'est Think Tank. Un logiciel améri- 
cain dont on n’a pas fini de parler. 
Aux Etats-Unis, il fait fureur. Le ma- 
gazine A+, qui publie un banc d'es- 
sai de Think Tank dans son numéro 
de mars, cite certains de ses utilisa- 
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teurs : Steve Wozniak, d'Apple. un 
avocat, le vice-président de la Chase 
Manhattan Bank. entre autres. 
Concrètement. Think Tank est un 
outil idéal pour mettre en forme ses 
idées. On ÿ entre des titres. des sous- 
titres, des paragraphes, qu’on peut 
classer. Les idées brutes se structu- 
rent, s'organisent pour former un 
plan cohérent. Bien pratique pour 
établir le plan d’un article, les idées 
force d’un mémo. Un outil diable- 
ment utile à tous les professionnels 
de l'écriture. Mais les utilisations sont 
illimitées. Wozniak s’en est servi pour 
faire le planning d’un festival de 
rock, le banquier pour classer les 
notes prises au cours de réunions. Le 
programme peut même classer auto- 
matiquement par ordre alphabétique 
les sous-chapitres, numéroter les pa- 
ragraphes, etc. On peut ensuite im- 
primer sous diverses formes le résul- 
tat de son travail Ce programme 
écrit par Living Videotex nécessite 
deux lecteurs et un Apple Il pour 
fonctionner. Son prix outre Atlanti- 
que est de 150 dollars. 


Lotus, es-tu là ? 


À quand Lotus 1-2-3 sur Apple. de- 
mandait Pom's dans son dernier nu- 
méro ? Le voici! Î! tournera sur un 
Apple Il Plus ou //e, à condition 
d'utiliser le lecteur de disquettes 
Rana 8060/2 (incorporant une carte 
MS-DOS et vendu, hélas. pratique- 
ment le prix d'un IBM PC..). Prix de 
Lotus : 495 dollars. Alléluia ? 


Des fenêtres 


En attendant, les amateurs de pro- 
grammes intégrés pourront se 
contenter de Jane (voir l'article de 
Daniel Garic} Jane est vendu en 
France par Ordinateur Express pour 
moins de 4000 francs avec carte et 
souris. Îl est en français. il a même 
été conçu dans notre langue. Coco- 
rico! Aux Etats-Unis, un autre pro- 
gramme intégré commence à faire 
parler de lui, c'est Jack 2 (la nouvelle 
version d’incredible Jack) de Busi- 
ness Solutions, permettant de faire 
du traitement de texte, des calculs ou 
des graphiques, sur la même page et 
sans changer de disquette. Avec im- 
pression de ce qu’on voit sur l'écran. 
Jack 2 n'a pas de fenêtres, mais dis- 
pose de dessins d'enveloppes qu’on 
peut ouvrir (50 dossiers simultanés 
maximum). À voir. 


Imprimer Visicalc en travers ? 


C'est possible avec un logiciel sud- 
africain, Sidewise, disponible par l'in- 
termédiaire de Pace Software Sup- 
plies en Grande Bretagne. Utile pour 
les tableaux larges, qui dépassent la 
plus grande largeur des imprimantes. 


NDLR : nous rappelons à cet égard 
que le programme Multiplan du Ma- 


cintosh possède d'origine la possibi- 
lité d'imprimer un tableau en travers 
si on Île souhaite. 


Vol au dessus d’un nid d’Apple 


Après une bonne séance de travail, 
décollez aux commandes de votre 
Apple. Avec Flight Simulator Il de 
SubLogic (en vente notamment chez 
Sideg). On n'avait encore pas volé 
ainsi sur Apple. En couleurs. D'un 
bout à l'autre des Etats-Unis {le pro- 
gramme permet d'utiliser une soixan- 
taine d'aéropoits. dont les pistes sont 
reproduites le plus fidèlement possi- 
ble. d'après des cartes aériennes). 
On peut définir soi-même les condi- 
tions de vol (heure, saison. nuages, 
force du vent}, voler de jour ou de 
nuit dans un cockpit parfaitement 
équipé: VOR pour la radio-naviga- 
tion. ILS pour les atterrissages aux 
instruments, instruments numériques, 
horizon artificiel en trois couleurs, 
etc. Le programme est livré avec un 
manuel de 88 pages et quatre cartes 
de radio-navigation. Un simulateur 
subtil dont l’utilisation nécessite un 
doigté certain (Bruce Artwick. son 
auteur, essaierait actuellement de le 
faire certifier par la FAA, l'autorité 
aéronautique américaine). Que ceux 
qui ont réussi à poser leur Piper, sur 
la piste et en bon état, m'écrivent. Je 
ne suis pas encore parvenu à éviter 
le crash en finale. 


Adresses 


Apple Seedrin - av. de l'Océanie - 
ZA de Courtaboeuf - B. P. 131 - 
91944 Les Ulis Cedex - Tél (6) 928 
0139 

Applied Engineering - P. ©. Box 
798 - Carrolton TX 75006 - USA 
Business Solutions - 60 East Main 
Street - Kings Park - NY 11754 - 
USA 

Living Videotext Inc. - 450 San 
Antonio Read no. 56 - Palo Alto CA 
94306 - USA 

MID - 96 bd. Richard Lenoir - 
75011 Paris - Tél 357.82.30 

Micro Periph - 62 rue Ducouédic - 
75014 Paris - Tél 321.53.16 
Ordinateur Express - 3 rue de Pe- 
louze - 75008 Paris - Tél 522.15.15 
Pace Software Supplies - 92 New 
Cross Street - West Bowling - Brad- 
ford BD58BS - UK 

Practical Peripherals - 131245 La 
Baya Dr. - Westlake Village - CA 
91362 - USA 

Sideg - 170 rue Saint Charles - 
75015 Paris - Tél 557.79.12 
Southern California Research 
Group - P. O. Box 2231 - S Goleta 
CA 93118 - USA 

Synetix - 10635 NE 38th Place - 
Kirkland WA 98033 - USA 
Thunderware Inc. - 44 Hermosa 
Av. - Oakland CA 94618 - USA 
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Je me suis servi du logiciel Omnis 
(gestion de fichiers) une dizaine de 
fois de manière satisfaisante. Hier, je 
le remets en route et voilà que l'Ap- 
ple devient littéralement ‘fou {n'y 
a plus d'affichage possible. des carac- 
têres désordonnés et inversés appa- 
raissant à l'écran. Et plus aucun logi- 
ciel ne fonctionne. Ceci m'étonne 
d'autant plus que. lors du dernier 
emploi, tout était parfaitement nor- 
mal. Qu'en pensez-vous ? Pourriez- 
vous me dire ce qui se passe ? 


Ayant mis en route l'autotest de l'Ap- 
ple /’e. j'ai vu apparaître à l'écran 
‘Kernel OK" puis. l'ayant recom- 
mencé. est apparu ‘RAM suivi de 
quelque chose d'incompréhensible, 
puis ROM” 

Jean-Albert Jouve - BP 4169 - Tana- 
narive - Madagascar 


Après des essais intensifs sur Apple 

e d'Omnis dans toutes ses options. 
il nous à été impossible de provo- 
quer une panne analogue à celle que 
vous décrivez dans votre lettre. Nous 
ne pouvons donc faire que des hy- 
pothèses. 


Ce genre de panne se produit parfois 
sous le système d'exploitation CP/M 
à la suite de fausses manoeuvres. en 
particulier quand on tente de “booter 
à chaud” (par CTRL-C) à partir 
d'une disquette ne contenant pas le 
système. Bien qu'Omnis soit écrit en 
Pascal. rien n'interdit de penser 
qu'une manoeuvre anormale avec 
les disquettes ait pu être la cause de 
vos ennuis. 


Une autre cause possible réside dans 
l'alimentation électrique de l'ordina- 
teur. Il arrive que des micro-coupures 
extrêmement brèves ne fassent pas 
décrocher complètement et produi- 
sent des résultats surprenants. Il en 
est de même avec certaines brusques 
sautes de tension. Si vous vous trou- 
vez dans des conditions d'alimenta- 
ton électrique instables, un régula- 
teur (ondulateur) pourrait PEUT- 
ÊTRE améliorer la situation. Même 
problème avec les décharges d'élec- 
tricité statique. Bannissez toute me- 
quette au sol, et essayez d'avoir une 
bonne terre dans votre installation 
électrique. 


Enfin. il est arrivé également. y 
compris sous DOS, qu'une tempéra- 
ture de fonctionnement exagérée ait 
des répercussions bizarres. Ceci peut 
se produire. outre le cas d'une tem- 
pérature extérieure élevée. quand de 
nombreuses cartes sont installées si- 
multanément. Certaines cartes d'in- 
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terface imprimante, 80 colonnes ou 
MEM/DOS. ont en particulier ten- 
dance à se conduire en radiateurs. 
Vous pouvez fonctionner capot ou- 
vert (attenton. vous supprimez alors 
l'effet de cage de Faraday du //e, 
gare à l'électricité statique). ou instal- 
ler un petit ventilateur (il y en à de 
spécialement étudiés) 


Et puis. .sauvegardez souvent une 
copie de vos fichiers. 





Contrairement à la réponse d'Olivier 
Herz au Docteur Selosse (Poms 11 
page 69). il est assez simple d'aug- 
menter le nombre de fitres du catalo- 
gue. au-delà de 105 J'ai d'ailleurs 
réalisé une disquette préparée pour 
recevoir 217 titres en face 1 et 161 
titres en face 2. Elle est facilement 
copiable par COPY A. et les fichiers 
sont transférables par FD sans pro- 
blème. Les lecteurs de Poms qui le 
souhaitent pourront en recevoir. 
après envoi dun chèque de 45 
francs à l'adresse indiquée en fin de 


mon courtier. une copie sur disquette 
Maxell MD1-D 


Voici comment il faut SV prendre 
pour constituer une disquette à cata- 
logue étendu. Prendre tout d'abord 
un utilitaire permettant la lecture et 
l'édition directe de pistes:secteurs sur 
la disquette. Le catalogue est norma- 
lement rangé de $11-0F (piste 17. 
secteur 15} à $11-01. Au début de 
chaque secteur se trouve l'adresse du 
secteur suivant: on lit ainsi ‘O8 11 
OC" au début de $11-0D. ce qui si- 
gnifie que la suite du catalogue est 
en $11-0C. 


Si l'on entre ‘00 10 OF” au début de 
$11-01. on indique au DOS que le 
catalogue se poursuit en piste 16. 
secteur 15. {! suffit de continuer ainsi 
autant que nécessaire. Bien entendu. 
après chaque modification. il ne faut 
pas oublier de recopier le secteur 
modifié sur la disquette. I reste enfin 
à modifier la table d'occupation. 
pour indiquer au DOS que la piste 
$10 est occupée et éviter ainsi la 
destruction du catalogue lors de la 
sauvegarde de fichiers : mise à O des 
octets en position $78 à $7D de la 
piste $11. secteur $00. 


À l'inverse. on peut réduire la taille 
du catalogue pour sauver des pro- 
grammes importants. Cela permet de 
récupérer 13 ou 14 secteurs par dis- 
quette. soit plus de 3K. Dés lors 
après libération des pistes $00 à $02 
(si on ne met pas le DOS sur la dis- 
quette). une disquette peut contenir 
140K de fichiers, 


Alexandre Duback 


S. Thélier - SODEC - 1 rue de la Lys 
- 59253 La Gorgue 


Merci pour cette lettre intéressante. 
Permettez-moi par la même occasion 
de blanchir Olivier : j'avais complété 
le Courrier après son départ. et laissé 
son nom car il en avait traité la ma- 
jeure partie. 





1) Je tiens à faire profiter vos lecteurs 
d'une information que j'ai mis trois 
mois à obtenir. Ayant la carte Chat 
Mauve et une imprimante Epson. j'ai 
eu la désagréable surprise de consta- 
ter que les logiciels écrits en Pascal 
(Omnis et Quickfile. et Pascal lui- 
méme) refusent obstinément de re- 
connaître l'imprimante connectée au 
slot 1  Quelquun m'a finalement 
donné la solution : il suffit tout bête- 
ment d'enlever la puce située juste 
au-dessus du ‘T' de CHAT MAUVE 
{il s'agit dun buffer). et ca marche ! 
Le plus extraordinaire dans cette his- 
toire est que l'absence dudit buffer 
ne change apparemment rien dans le 
fonctionnement de la carte. aussi 
bien pour ses fonctions graphiques 
que pour l'extension 64K. Apple et 
le Chat Mauve n'ont, paraît-il. pas 
encore trouvé l'explication. 


2} Je tiens à vous féliciter par ailleurs 
pour la qualité de votre revue et le 
haut niveau des programmes que 
vous proposez. J'ai cependant eu 
bien des difficultés avec certains 
d'entre eux: je nai en particulier 
jamais réussi à faire fonctionner cor- 
rectement le programme de copie 
écran texte HCTOBI (sur les dis- 
quettes à partir de la 7}. Î nimprime 
qu'une ligne sur 3. méme si j'inhibe 
limpression écran par un POKE 
1657.80. 


3) Une suggestion : j'aimerais des 
progammes utilisant les possibilités 
des cartes 80 colonnes (par exemple 
pour la gestion de masques. les 
menus à barre. les catalogues). C'est 
vraiment déprimant de revenir à ce 
vieil affichage étriqué en 40 colonnes 
après avoir travaillé sur Visicalc ou 
Apple Writer en 80 colonnes ! 


Jean-Pierre Januel - 5 rue Duperré - 
75009 Paris 


1) Nous vous remercions pour votre 
lettre au sujet de la carte RVB Chat 
Mauve. Nous avions en effet parlé 
du problème dans le Courrier du 
Pom's 10, page 72. 


2) Le programme de copie d'écran 
texte ne fonctionne hélas pas avec 
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tous les modèles de cartes parallèles 
et d'imprimantes. Nous n'avons pas 
encore trouvé le moyen de le faire 
fonctionner de façon universelle. 


3) En ce qui concerne les cartes 80 
colonnes, on retombe immédiate- 
ment sur le problème suivant : elles 
utlisent en général des codes diffé- 
rents. On ne pourrait donc proposer 
des programmes que pour la 80 co- 
lonnes Apple //e ou Chat Mauve, qui 
sont en théorie gérées de la même 
façon. ce qui semble d'ailleurs peu 
évident vu les problèmes du Pascal 
avec la Chat Mauve et une Epson. 
Nous devons déjà tester les program- 
mes pour voir à chaque fois s'ils 
marchent sur Il Plus et //e? Si l'on 
devait tester avec des cartes 80 co- 
lonnes ou de multiples configurations 
d'imprimante et de carte. on ne s'en 
sortirait plus. 


Pom's paraïf dorénavant tous les 
deux mois. Bravo ! Peut-on espérer 
une parution mensuelle ? Est-ce un 
manque d'articles ou une diffusion 
trop restreinte. ou encore la probable 
concurrence du ‘petit frère Macin- 
tosh ou enfin la suprématie d'IBM 
qui vous empéchera de franchir le 
pas ? 

La lecture de POKES à gogo (Pom's 
11) ma fait découvrir quelques im- 





perfections qui m avaient échappé. 
Mea culpa. Je rectifie le tir 

Adresse 48: faire un POKE 48.C»*17 
avec € = code de la couleur GR (0- 
15). 

Adresses 55/56 et 57/58: le DOS 
remet automatiquement les ancien- 
nes valeurs. 1} vaut mieux poker dans 
les adresses d'entrée/sortie du DOS 
(43603-4 et 43605-6). 

Adresses 60/67: avant lappel de 
MOVE ou de VERIFY. ie registre Y 
doit être mis à zéro. Pour réaliser 
ceci, faire précéder la série de 
POKESs par un CALL -610. 


L'adresse du tampon utilisé par 
RWTS est donnée par POKE IO0B + 
9. A/256 : POKE 10B + 8. À - 256 
* PEEK(IOB+ 9). 

Les POKES qui permettent d'activer 
ou de désactiver une carte d'exten- 
sion ne sont valables que si la carte 
est dans le port (slot) O. De façon 
plus générale, il faudra faire POKE 
XKXXX + 16»$ pour une carte insé- 
rée dans le slot S 

Page 18 du Poms 11: corriger les 
POKES permettant d'activer les 12K 
du bloc 1 : 

POKE 49288.0 (-16248) 

POKE 492890 (-16247) 

POKE 49298.0 (-16246) 

POKE 492910 (-16245) 


Roland dJost - 4 allée Spach - 67008 
Strasbourg = 


Erratum 


Dans un souci de présentation. nous 
avions ajouté au programme de 
Gilles Mauffrey (Poms 11. page 71) 
des REMs (1 à 3). oubliant que le 
programme ne marcherait alors plus. 
Il faut donc éliminer ces remarques, 
qui d'ailleurs ne figurent pas dans le 
programme de la disquette d'accom- 
pagnement du numéro 11. 


De nouveaux développements atten- 
dent les lecteurs intéressés par la mé- 
thode «Aliénor» parue dans le 
Pom's ï1 Les personnes concernées 
peuvent contacter À. Guillez au 128 
avenue de la République - 75011 
Paris - Tél Labo MEDIMAT 329.79.26. 


| Multiplan pour Apple 


Une légère confusion au moment 
| de l'impression du livre « Muitiplan 
pour Apple Il Plus et Apple //e » a 
fait que le premier tirage 
comporte, en page 5. un Som- 
maire manifestement trop som- 
maire (une page seulement). Les 
acheteurs de cette première édi- 
tion peuvent envoyer à Pom's une 
lettre comportant une enveloppe 
timbrée à leur adresse et un mot 
| demandant le sommaire détaillé : 


ils recevront gratuitement en re- 
tour de courrier ce sommaire en 
| quatre pages. | 





ERPE... LIELE..... LILLE.... LILLE 


m.b.d.c. 


Apple //e, Apple ///, Mac-Iintoch, 


BFM 186. dragon, oric, alice, casio 


m.b.d.c. 


m.b.d.c. 


disquettes, Flexettes, 3M, Verbatim 
listing, rubans encreurs. 


le conseil, le matériel, les périphériques 


les logiciels, les consommables, 


m.b.d.c. 


le S.A.V. sur place. 


le Service Complet. 


db m.b.d.c. 


172, RUE SOLFERINO. 59800 LILLE — TEL. (20) 57.91.87 
OUVERT DU MARDI AU SAMEDI DE 9h30 à 12h ET DE 14h30 à 19h 





Depuis que nous avons accès à un 
Apple. nous souffrons dès que nous 
en sommes éloignés. Pensant que 
cette étrange machine a fait d'autres 
victimes. nous venons de fonder un 
club pour les rassembler. Il est ouvert 
à tous. du débutant au docteur en 
informatique. 


CTRL RESET - Club Informatique - 
172 Bd. Haussmann - 75008 Paris 
Richard Chalet - Secrétaire Général - 
20 rue Nélaton - 75015 Paris 


Nous avons créé depuis quelques 
mois l'association Info-Maniaques. 
Son but est d'abord de fournir un 
lieu de réunion et d'échanges à des 


Courrier des clubs 


personnes qui ont en commun 
d'aborder ou d'approfondir les divers 
domaines de la micro-informatique. 
Très rapidement. des personnes de 
tous ôges souhaitant recevoir une ini- 
tation sont venues nous voir. Nous 
comptons actuellement 60 adhérents 
et chaque mois une dizaine de neu- 
velles adhésions. 


L'association met à la dispostion de 
ses adhérents divers matériels : 
Apple. Multitech MPF Il, Jupiter Ace, 
Alice. Thomson TO7 

Info-Maniaques 62 avenue Paul 
Santy 69008 Lyon - Tel (7) 
80143.19 


Nos prochaines réunions sont les sui- 
vantes : ‘le point sur les tableurs”, 
animé par Hervé Thiriez le 16 mai 
avec présentation de Multiplan et 
Multichart sur Macintosh: ‘les techni- 
ques graphiques” avec démonstra- 
tion de vision en relief, animation par 
sprites. découpage d'écran et incrus- 
tations, carte haute résolution 
1024+1024. le 20 juin. Les réunions 
ont lieu à 19H au 110 avenue du 
Général Leclerc. à Paris. 


Ma Pomme - 6 rue Paul Saunière - 
75016 Paris - Jean-François Duvivier 
(1) 558.05.78 le soir 





The Apple House (how to compu- 
terie your home using your Apple 
Computer) de John Blankenship, 
Prentice Hall - 66 Wood Lane End, 
Hernel Hempstead. Herts. HP2 4RG. 
Royaume Uni - 153 pages - $19.45. 


Voici un livre qui décrit comment 
concevoir un système qui fasse exé- 
cuter à votre Apple un ensemble de 
tâches liées à l'habitation telles que le 
contrôle de la sécurité. des lumières 
ou du téléphone. Une des originalités 
de ce système est qu’il accepte des 
ordres verbaux et réagit en fournis- 
sant une réponse du même type. 
Mais une certaine connaissance de 
l'électronique et l'achat de compo- 
sants sont nécessaires à la réalisation 
de tout ou partie du système. Cet 
ouvrage est très bien structuré et 
comporte en appendice les listings de 
tous les programmes. 1 est possible 
aussi d'obtenir une disquette les 
contenant au prix de $12,50. 


Jean-Luc Boyer 


Exercices pour Apple IL. de Fré- 
déric Lévy. Editions du PSI - 148 
Pages - 90 FF 


Il est agréable de voir que le listage 
de programmes n'est pas le seul but 
de ce livre. Bien poser le problème 
et réaliser une analyse sont considé- 
rées comme des étapes importantes 
et mises en valeur par l'auteur De 
même. on apprécie beaucoup les 
programmes commentés d'une façon 
précise. Cet ouvrage comprend une 
première partie donnant les énoncés 
des exercices ainsi que leur analyse, 
la deuxième partie étant réservée aux 
programmes proposés comme solu- 
tions (en Basic). Les problèmes abor- 
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dés correspondent à quatre thèmes 
principaux (calcul. manipulaton de 
tableaux, traitement de chaînes et 
graphiques) En conclusion, ce livre 
apporte une excellente formaton à la 
programmation. 


Jean-Luc Boyer 


36 programmes Apple Il pour 
tous. de Jacques Boisgontier. Edi- 
tions du PSI - 126 pages - 90 FF. 


Après un bref rappel des instructions 
graphiques spécifiques à l'Apple Il. 
l’auteur fournit un ensemble de pro- 
grammes (en Basic) sur 3 thèmes dif- 
férents : l'éducation, la gestion et les 
jeux Nous regrettons le manque 
d'explications pour certains program- 
mes, ainsi que le peu d'originalité 
des sujets traités. que l'on retrouve 
dans beaucoup d'ouvrages déjà 
parus. Malgré cela, il y a une bonne 
diversité dans le choix des énoncés. 


Jean-Luc Boyer 


Apple Graphics - Activities 
Handbook de Harold J. Bailey et J. 
Edward Kerlin - Prentice Hall Inter- 
national - 422 pages - $ 11.95 


Ce livre est agréablement présenté, 
et sa pédagoqe plaisante : tests de 
compréhension, exercices.  discus- 
sions, exemples. Il contient de très 
nombreux exemples de programmes. 
Nombre d'entre eux sont de bonne 
taille (allant jusqu'à plusieurs centai- 
nes d'instructions. Le revers de la 
médaille est que, lors de la retrans- 
cription au clavier, il est presque im- 
possible de ne pas commettre quel- 
ques erreurs de frappe. Au niveau 
d'un apprentissage, c'est d'autant 
plus rédhibitoire que les résultats à 
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obtenir ne sont en général pas dé- 
ctits : il s'agit pour le lecteur d'exer- 
cer sa capacité de compréhension. 
Moralité : la disquette optionnelle” 
(à $26) est de fait quasiment obliga- 
toire. 


D'une façon plus générale. pour un 
ouvrage consacré au graphique. 
celui-ci manque nettement d'illustra- 
tions. On peut aussi regretter un 
manque de distinction entre l'essen- 
tiel et l'accessoire. Deux exemples à 
l'appui de cette affirmation : 


e les graphiques dits ”’alphanuméri- 
ques”. créés en basse résolution à 
partir de chaînes de caractères, ne 
sont sans doute pas d'usage quot:- 
dien: c'est une ‘activité parmi 
d’autres d'un module” basse ré- 
solution: 

e à l'inverse. il est d'usage courant 
d'utiliser les “’shapes” en graphi- 
que haute résolution: or ce point 
n'est traité que dans un chapitre 
sur les techniques avancées 


Mais l'ensemble est intéressant et 
l'on trouvera dans cet ouvrage de 
quoi satsfaire le débutant ainsi que 
le programmeur expérimenté qui 
souhaite encore progresser. Environ 
100 pages s'adressent au débutant. 
Les 100 pages suivantes abordent les 
techniques avancées. cependant que 
les 209 dernières pages sont consa- 
crées aux problèmes de géométrie 
plane, puis dans l'espace (c'est peut- 
être un peu trop). Quelques annexes, 
dont on peut fort bien se passer, 
complètent l'ouvrage 


Guy Mathieu 


EE ____* 
HR sensRasaar nets 


73 


74 































































































Montant 
AEC 
e la disquette HAIFA Source! | au prix de 55 F la disquette (cf. Pom’s n° 5) _ 
e le logiciel H-BASIC [_] au prix de 150 F (cf. Pom’s n° 8) | 
e le logiciel MUSIC [_] au prix de 80 F (cf. Pom’s n° 10) | 
e le Disk Manager [_] au prix de 450 F (cf. Pom'’s n° 11) 
e DBSTAG (CP/M) [_ ] au prix de 450 F ‘cf. Pom's n° 11) 
e Disquette de jeux À [|] au prix de 80 F (cf. Pom's n° 12) 
e Disquette de jeux B [_} au prix de 80 F (cf. Pom’s n° 12) 
e Recueil n° 1 de Pom’s (n° 1 à 4) 
[_ ] avec ses 3 disquettes au prix de 280 F _ 
[_] sans disquette au prix de 130 F _ . 
[_]les 3 disquettes seules au prix de 150 F 
e Recueil n° 2 de Pom's {n° 5 à 8) - Parution 15 avril 
[_] avec ses 4 disquettes au prix de 320 F 
[-] sans disquette au prix de 130 F | 
[_] les 4 disquettes seules au prix de 190 F 
Je désire recevoir : 
e les numéros de la revue Pom's [ ]4 []7 []8 
au prix de 35 F le numéro 
e les numéros de la revue Pom’s [ ]9 []10 []}11 []12 
au prix de 40 F le numéro 
e les disquettes d'accompagnement des numéros 
a ON Ce ES 2 ON RE Sn SES Et es ÈS en EL 


au prix de 55 F par disquette 










Je désire m’abonner pour 6 numéros à partir du n°... 


[_] sans disquette au prix de 200 F 
[_] avec disquettes au prix de 480 F 














TOTAL: 
Envoyez ce bon de commande et votre règlement à : 


Éditions MEV — 64-70, rue des Chantiers — 78000 Versailles 


Nom 








Adresse 





Ces tarifs comprennent l'envoi postal en France Métropolitaine, CEE et Suisse (voie aérienne exceptée) 
Supplément avion . 10 F par numéro et / ou disquette 
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| | 
| pe tous les rain de dé lordinatelir personnel, | 
les branchés et ceux qui le soht mdins, Applellance le Club Apple. 
M à | = | Enfin un {club avec des idées et des services | LL. | _| 
| pour comprendre, pour gagner, pour s'évader. | 
| Le Club Apple, c'est l'esprit Apple. | 
C'est le fruit dela passion! | 


NE RS D DE ES Du nr en ES On ES 














Pour en savoir plus sur le Club Apple - le fruit de la passion - et connaître tous les avantages que nous réservens aux 
membres du club, découpez dès aujourd'hui le bon et retournez-le à Club Apple, avenue de l'Océanie -ZAde Courtabœuf - BP131, 
Les Uhs cedex 91944. Vous recevrez sans engagement de votre part toutes les informations pour devenir membre du club. 


Nom = | Prénom 


Adresse 











_ Code postal _ _ 








Vous y trouverez : 
l'actualité et les 

tendances de 

l'informatique individuelle 

e les bancs d'essais 

des principaux matériels 

e des panoramas 

et des tests comparatifs 

e le point des grandes 
manifestations internationales 
e des articles d'initiation 

e des synthèses 

e des programmes 

e des interviews 
“exemplaires” e des conseils 
CR ETES 

e des astuces 


22 FF chez votre 
marchand 
de journaux 







OR RIDIINVANrEUIE) 


{ C INSNIQUEL < 


SOUS LE SIGNE DES JEUX 
68 logiciels testées sur 10rondinateurs 
les étoiles de LOI 

Apprendre - estce Gin elle 
La création dune 








QUELS ORDINATEURS DEMAIN ? 


Souris, écran tactile, 
crayon lumineux : 

le clavier sur la touche ? 
Les écrans à fenêtres 
Les logiciels intégrés 
Les composants du futur 


\ ESSAIS : BFM 106, 
HP 160, Lisa, LÉ 
Aquarius, MS sa 
Executive 1, 


A court d' Idées ? 1 
Créez des scénarios 
sur CBM 4092 


Title 





Mme) im) \7yn=8)> 





INDIVID£ EL 





